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PREFACE 


This manual describes the Compact Interactive Standard COBOL (CIS COBOL) 
language for programming microcomputers. CIS COBOL is based on the ANSI 
COBOL standard X3.23 (1974) (see Acknowledgement). It also describes the 

additional CIS COBOL features that exploit the capabilities of 
microprocessors. 

Each release of CIS COBOL is characterized by a two-digit code in the form 

of 


"Version number". "Release number within version" 
AUDIENCE 


This manual is intended for programmers already familiar with COBOL on other 
equipment. 

MANUAL ORGANIZATION 


Chapters 1 through 4 of the manual apply to all users and describe basic 
features of the language. Chapters 5 through 7 describe language features 
for programming the three file organization formats supported: sequential, 
relative and indexed. 

Chapters 8 through 11 apply to all users and describe additional features 
and facilities available with the standard language. The appendices supply 
reference information pertinent to all systems. 

The manual contains the following chapters and appendices: 

"Chapter 1. Introduction", which gives a general description of the 
language, including a broad outline of ANSI COBOL features included and 
omitted and additional features of CIS COBOL, 

"Chapter 2. COBOL Concepts", which describes general concepts of the COBOL 
language including program structure, and details of statement components 
and notation. 

"Chapter 3. Nucleus", which describes the nucleus of all COBOL programs and 
the layout of each program division in the nucleus. 

"Chapter 4. Table Handling", which describes the handling of data tables in 
the Data and Procedure divisions of a COBOL program. 

"Chapter 5. Sequential Input and Output", which describes the programming of 
input and output of data in files with sequential format. 

"Chapter 6. Relative Input and Output", which describes the programming of 
input and output of data in files with relative format. 



"Chapter 7. Indexed Input and Output", which describes the programming of 
input and output of data in files with indexed format. 

"Chapter 8. Segmentation", which describes the facility for specifying 
permanent and independent object program segments. 

"Chapter 9. Library", which describes the source library maintenance feature 
of COBOL. 

"Chapter 10. Debug and Interactive Debugging", which describes the basic and 
interactive debugging features available in CIS COBOL. 

"Chapter 11. Interprogram Communication", which describes the ability of CIS 
COBOL programs to interface during running and to access common data, 
enabling modular programming. 

"Chapter 12. Programming Techniques and Sizing", which describes the means 
available for CIS COBOL programmers to estimate object program size and 

includes programming techniques in CIS COBOL. 

"Appendix A. Reserved Word Table", which lists words reserved for CIS COBOL 
functions within a program. 

"Appendix B. Character Set and Collating Sequence", which lists all 

characters available and their collating sequence. 

"Appendix C. Glossary", which lists specific terms used in CIS COBOL. 

"Appendix D. Compile - Time Errors", which lists all errors that can be 
signalled during program compilation. 

"Appendix E. Run-Time Errors", which lists all errors that can be signalled 
during program execution. 

"Appendix F. Syntax Summary", which summarizes the syntax used in CIS COBOL 
programming. 

"Appendix G. Summary of Extensions to ANSI COBOL", which summarizes all 

extensions to ANSI COBOL provided by CIS COBOL. 

"Appendix H. System Dependent Language Features", which describes the 

system dependent CIS COBOL entries for use with microcomputers and those 
features not included because of hardware requirements. 

"Appendix I. Language Specification", which is an overall specification of 
the CIS COBOL language. 

RELATED PUBLICATIONS 


No discussion of operating the CIS COBOL Compiler or Run-Time system is 
incorporated in this manual. Please refer to document: 

CIS COBOL Operating Guide 
(for use with the relevant Operating System) 
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NOTATION IN THIS MANUAL 


Throughout this manual, the following notation is used to describe the 

format of COBOL statements: 

1. All words printed in capital letters which are underlined must always 
be present when the functions of which they are a part are used. An 
error printout will occur during compilation if the underlined words 
are absent or incorrectly spelled. The underlining is not necessary 
when writing a COBOL source program. 

2. All words printed in capital letters which are not underlined are used 
for readability only. They may be written, or not, as the programmer 
wishes. 

3* All words printed in small letters are generic terms representing names 
which will be devised by the programmer. 

4. When material is enclosed in braces , a choice must be made from 
the options within them. 

5. When material is enclosed in square brackets [ ], it is an indication 
that the material is an option which may be Included or omitted as 
required. 

6. When material is enclosed in square brackets crossed •£ •}, it is an 

indication that the material is mandatory when the ANSI switch is set 
(see Chapter 2) but optional otherwise. 

7. Language features that are shaded in the text are language extensions 
which exceed the ANSI standard. 

8. In text, the ellipsis (...) shows the omission of a portion of a source 
program or a sequence. This meaning becomes apparent in context. 

In the general formats, the ellipsis represents the position at which 
repetition may occur at the user's option. The portion of the format 
that may be repeated is determined as follows: 

Given ... in a clause or statement format, scanning right to left, 

determine the or [ immediately to the left of the ...; continue 

scanning right to left and determine the logically matching or ); the 
... applies to the words between the determined pair of delimiters. 

9. The term identifier means either a data-name or a subscripted 

data-name. An identifier takes the following form: 

[ l itu;:”! 1 ! ’] 

data-name-2 or literal-1 must be a positive integer in the range 1 
to the number of elements in the table. 
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Headings are presented in this manual in the following order of importance: 


CHAPTER N | 

[ Chapter Heading 
TITLE ) 

ORDER ONE HEADING \ 

ORDER TWO HEADING / 

Order Three Heading l Text two lines down 

Order Four Heading / 

Order Five Heading: Text on same line 


Numbers one (l) to nine (9) are written in text as letters, e.g. one. 

Numbers ten (10) upwards art written in text as numbers, e.g. 12. 

The phrase "For documentation purposes only" in the text of this manual 
means that the associated coding is accepted syntactically by the Compiler, 
but is ignored when producing the object program. 
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CHAPTER 1 


INTRODUCTION 


WHAT IS CIS COBOL? 

COBOL (COmmon Business Oriented Language) is the most widely and 
extensively used language for the programming of commercial and 
administrative data processing. 

CIS COBOL is a Compact, Interactive and Standard COBOL Language System 
which is designed for use on microprocessor-based computers and Intelligent 
terminals. 

It is based on the ANSI COBOL given in "American National Standard 
Programming Language COBOL" (ANSI X3.23 1974). The CIS COBOL implementation 
has been selected from both levels of ANSI COBOL. The following modules are 
fully Implemented at Level 1: 

. Nucleus 

. Table Handling 

. Sequential Input and Output 

. Relative Input and Output 

. Indexed Input and Output 

, Segmentation 

• Library 

. Inter-Program Communication 

. Debug. 

In addition many Level 2 features are implemented such as: 

• Nucleus - Nested IF, PERFORM UNTIL 

• Relative and Indexed sequential I/O - START statement 

• Inter-Program Communication - CANCEL statement 

This manual is intended as a reference work for COBOL programmers and 
material from the ANSI language standard document is included. 

The package has been proved to meet and exceed the COBOL ANSI standard 
X3.23 and has been certified by the Federal Compiler Testing Center (FCTC) 
under the direction of the General Services Administration (GSA) as 
validated at Federal Low Intermediate Level. The GSA Validation Summary 
Report is available under the reference CCVS74-VSR685. 

Along with the ANSI implementation CIS COBOL also contains several 
language extensions specifically oriented to the smal1 computer environment. 
These enable a CIS COBOL program to format CRT screens for data input and 
output (DISPLAY and ACCEPT), READ and WRITE text files efficiently and 
define external file names at run time. 

The programmer wishing to transport an existing COBOL program to run 
under CIS COBOL must check that the individual language features he has used 
are supported by CIS COBuL. The COBOL SECTION statements in the 

Segmentation feature can be performed using the PERFORM statement. 
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A compile time ANSI switch can be set that makes certain COBOL source 
mandatory, whereas if not set it is optional. (See Chapter 2). 

The CIS COBOL compiler is designed to enable programs to be developed 
in a 48K machine. The Compiler supports sequential, relative and indexed 
sequential files, as well as interactive communications via the ACCEPT and 
DISPLAY verbs. 

The CIS COBOL System also contains a powerful utility called FORMS-2 

that enables the Operator to define screen layouts from a screen "module" 

and produce automatically the data description for direct inclusion in a 

CIS COBOL program. This is described in the CIS COBOL Operating Guide 

CIS COBOL programs are created using a conventional- text editor. The 
Compiler compiles the programs and the Run-Time system links with the 
compiled output to form a running user program. A listing of the CIS COBOL 
program is provided by the Compiler during compilation. Error messages are 
inserted in the listing. Interactive Debugging facilities are provided for 
run-time use, and these are described in the CIS COBOL Operating Guide. 

CIS COBOL is designed to be interfaced easily to any microprocessor 
operating system. Detailed operating characteristics are dependent on the 
particular host operating system used and are defined in the appropriate 

Operating Guide. 

PROGRAM STRUCTURE 

A COBOL program consists of four divisions: 

1, IDENTIFICATION DIVISION - An identification of the program 

2, ENVIRONMENT DIVISION - A description of the equipment to be used to 
compile and run the program 

3, DATA DIVISION - A description of the data to be processed 

4, PROCEDURE DIVISION - A set of procedures to specify the operations to 
be performed on the data 


Each division is divided into sections which are further divided into 
paragraphs which in turn are made up of sentences. 

Within these subdivisions of a COBOL program, further subdivisions 
exist as clauses and statements. A clause is an ordered set of COBOL 
elements that specify an attribute of an entry, and a statement is a 
combination of elements in the Procedure Division that include a COBOL verb 
and constitute a program instruction. 
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FORMATS AND RULES 




GENERAL FORMAT 

A general format is the specific arrangement of the elements of a 
clause or a statement. Throughout this document a format is shown adjacent 
to information defining the clause or statement. When more than one 
specific arrangement is permitted, the general format is separated into 
numbered formats. Clauses must be written in the sequence given in the 
general formats, (Clauses that are optional must appear in the sequence 
shown if they are used). In certain cases, stated explicitly in the rules 
associated with a given format, the clauses may appear in sequences other 
than that shown. Applications, requirements or restrictions are shown as 
rules. 

SYNTAX RULES 

Syntax rules are those rules that define or clarify the order in which 
words or elements are arranged to form larger elements such as phrases, 
clauses, or statements. Syntax rules also impose restrictions on individual 
words or elements. 

These rules are used to define or clarify how the statement must be 
written, i.e,, the order of the elements of the statement and restrictions 
on what each element may represent. 

GENERAL RULES 

A general rule is a rule that defines or clarifies the meaning or 
relationship of meanings of an element or set of elements. It is used to 
define or clsrify the semantics of the statement and the effect that it has 
on either execution or compilation. 

ELEMENTS 

Elements which make up a clause or a statement consist of uppercase 
words, lowercase words, level-numbers, brackets, braces, connectives and 
special characters (see Chapter 2). 
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SOURCE FORMAT 


The COBOL source format divides each COBOL source record into 72 
columns. These columns are used in the following way: 

Columns 1-6 Sequence number 

Column 7 Indicator area 

Columns 8 - 11 Area A 

Columns 12 - 72 Area B 

SEQUENCE NUMBER 

A sequence number of six digits may be used to identify each source 
program line. 

INDICATOR AREA 

An asterisk * in this area marks the line as documentary comment only. 
Such a comment line can appear anywhere in the program after the 
Identification Division header. Any characters from the ASCII character set 
can be included in Area A and Area B of the line. 

A stroke /, in the indicator area acts as a comment line above but 
causes the page to eject before printing the comment. 

A "D" in the indicator area represents a debugging line. Areas A and B 
may contain any valid COBOL sentence. 

A in the indicator area represents a continuation line. 

Section names and paragraph names begin in Area A and are followed by a 
period and a space. Level indications FD» 01 and 77 begin in Area A and are 
followed in Area B by the appropriate file and record description. 

Program sentences may commence anywhere in Area A or Area B. More than 
one sentence is permitted in each source record. 

Note that TAB characters are not permitted in CIS COBOL source. 

Figure 1-1 shows the source format of a typical program. 
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000020 
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000090 

file-control. 

0118 

000100 

SELECT STOCK-FILE ASSICH 'STOCK.IT' 

018* 
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000120 
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0186 
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RECORD CLT STOCK-CODE. 

0186 

0001*0 

DATA DIVISION. 

01 HI 
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000160 FU STOCK-riLl; record 32. 
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000170 
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\ 
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Figure 1 - ], Sample Program Listing Showing Source Format 
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CHAPTER 2 


COBOL CONCEPTS 


LANGUAGE CONCEPTS 
CHARACTER SET 

The most basic and indivisible unit of the language is the character. 
The set of characters used to form CIS COBOL character-strings and 
separators includes the letters of the alphabet, digits and special 
characters. The character set consists of the characters defined below: 


0 to 9 
A to Z 



Space 

+ Plus sign 


Minus sign or hyphen 
* Asterisk 

/ Oblique Stroke/Slash 

= Fnual sign 

$ Dollar sign 

. Full stop or decimal point 

, Comma or decimal point 

; Semicolon 

" Quotation mark 

( Left Parenthesis 

) Right Parenthesis 

> Greater than symbol 

< Less than symbol 

The CIS COBOL language is restricted to the above character set, but 
the content of non-numeric literals, comment lines and data may include any 
of the characters from the ASCII character set. See Appendix B. 

LANGUAGE STRUCTURE 

The individual characters of the language are concatenated to form 
character-strings and separators. A separator may be concatenated with 
another separator or with a character-string. A character-string may only 
be concatenated with a separator. The concatenation of character-strings 
and separators forms the text of a source program. 

Separators 

A separator is a string of one or more punctuation characters. The 
rules for formation of separators are: 

1. The punctuation character space is a separator. Anywhere a space is 
used as a separator, more than one space may be used. 

2. The punctuation characters comma, semicolon and period, when 

immediately followed by a space, are separators. These separators 
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may appear In a COBOL source program only vhere explicitly permitted by 
the general formats, by format punctuation rules (see 
FORMATS AND RULES In Chapter 1), by statement and sentence structure 
definitions (see STATEMENTS AND SENTENCES In this Chapter), or 
reference format rules (see REFERENCE FORMAT In this Chapter). 

3. The punctuation characters right and left parenthesis are separators. 
Parenthesis may appear only In balanced pairs of left and right 
parentheses delimiting subscripts. Indices, arithmetic expressions, or 
conditions. 

4. The punctuation character quotation mark Is a separator. An opening 
quotation mark must be immediately preceded by a space or left 
parenthesis; a closing quotation mark must be immedlately followed by 
one of the separators space, comma, semicolon, period, or right 
parenthesis. 

Quotation marks may appear only In balanced pairs delimiting nonnumerlc 
literals except when the literal is continued. (See 

CONTINUATION OF LINES in this Chapter). 

5. The separator space may optionally Immediately precede all separators 
except the following: 

a. As specified by reference format rules see REFERENCE FORMAT 
in this Chapter. 

b. The separator closing quotation mark. In this case, a 
preceding space is considered as part of the nonnumeric 
literal and not as a separator, 

6. The separator space is optional and can Immediately follow any 

separator except the opening quotation mark. In this case, a following 
space Is considered as part of the nonnumerlc literal and not as a 
separator. 

Any punctuation character which appears as part of the specification of 
a PICTURE character-string (see Chapter 3) or numeric literal is not 
considered as a punctuation character, but rather as a symbol used in the 
specification of that PICTURE character-string or numeric literal. PICTURE 
character-strings are delimited only by the separators space, comma, 

semicolon, or period. 

The rules established for the formation of separators do not apply to 
the characters which comprise the contents of nonnumeric literals, 

comment-entries, or comment lines. 
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Character-Strings 




A character-string is a character or a sequence of contiguous 
characters which forms a CIS COBOL word, a literal, a PICTURE 
character-string, or a comment-entry. A character-string is delimited by 
separators. 

COBOL Words 


A COBOL word is a character-string of not more than 30 characters which 
forms a user defined word, a system-name, or a reserved word. Within a 
given source program these classes form disjoint sets; a COBOL word may 
belong to one and only one of these classes. 


User-Defined Words: A user-defined word is a COBOL word that must be 
supplied by the user to satisfy the format of a clause or statement. Each 
character of a user-defined word is selected from the spf of characters *A f , 

-B-, -c\ ... 'v, mmmmmm •<>•. «*< 

the - nay not appear as the first or last character. IW £0 

eiUs tot psrtvcs&l l r i4^nMBFIXt»tajl ■RCdts’ fcfcur fr* 


User-defined word types which are Implemented are as follows: 


alphabet-name 

condition-name 

data-name 



file-name 

index-name 

level-number 

mnemonic-name 

paragraph-name 

program-name 

record-name 

section-name 

segment-number 

text-name 


Within a given source program, ten of these 12 types of user-defined 
words are grouped into nine disjoint sets. The disjoint sets are: 

alphabet-names 

condition-names, data-names, and record-names 

file-names 

index-names 

mnemonic-name s 

paragraph-names 

program-names 

section-names 

text-names 


All user-defined words, except segment-numbers and level-numbers, can 
belong to one and only one of these disjoint sets. Further, all 
user-defined words within a given disjoint set must be unique. (See 
UNIQUENESS OF REFERENCE in this Section). 






“1 

mm, 


1 
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With the exception of paragraph-name, section-name, level-number and 
segment-number, all user-defined words must contain at least one alphabetic 
character* Segment-numbers and level-numbers need not be unique; a given 
specification of a segment-number or level-number may be identical to any 
other segment-number or level-number and may even be identical to a 
paragraph-name or section-name. 

Condition-Name: A condition-name is a name which is assigned to a 

specific value, set of values, or range of values, 
within a complete set of values that a data item may 
assume. The data item itself is called a conditional 
variable. 

Condition-names may be defined in the Data Division or 
in the SPECIAL-NAMES paragraph within the Environment 
Division where a condition-name must be assigned to the 
ON STATUS or OFF STATUS, or both, of the run time 
switches. 


Mnemonic-Name: 


Paragraph-Name: 


Section-Name: 


A condition-name is used only in the RERUN clause or in 
conditions as an abbreviation for the relation 
condition; this relation condition posits that the 
associated conditional variable is equal to one of the 
set of values to which that condition-name is assigned. 

A mnemonic-name assigns a user-defined word to an 
implementor-name. These associations are established in 
the SPECIAL-NAMES paragraph of the Environment Division. 
(See SPECIAL-NAMES in Chapter 3). 

A paragraph-name is a word which names a paragraph in 
the Procedure Division. Paragraph-names are equivalent 
if, and only if, they are composed of the same sequence 
of the same number of digits and/or characters. 

A section-name is a word which names a section in the 
Procedure Division. Section names are equivalent if, and 
only if, they are composed of the same sequence of the 
same number of digits and/or characters. 


Other User-Defined 

Names: See the glossary in Appendix C for definitions of all 

other types of user-defined words. 


System-Names: 


A system-name is a COBOL word which is used to 
communicate with the operating environment. Each 
character used in the formation of a system-name must be 
selected from the set of characters 'A*, 'B 1 2 3 , *0’, ... 


’Z\ 

the 


m »n 




may not appear as Che 
There are three types of system-names 


. , 9 t and except that 

first or last character. 


1. computer-name 

2. implementor-name 

3. language-name 
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Within a given implementation these three types of 
system-names form disjoint sets; a given system-name may 
belong to one and only one of them. 

The system-names listed above are individually defined 
in the glossary in Appendix C. 

Reserved Words: A reserved word is a COBOL word that is one of a 

specified list of words which may be used in COBOL 
source programs, but which must not appear in the 
programs as user-defined words or system-names. 
Reserved words can only be used as specified in the 
general formats. (See Appendix A). 

There are six types of reserved words: 

1. Key wo rds 

2. Optional words 

3. Connectives 

A. Special registers 

5. Figurative constants 

6. Special-character words 

Key Words: A key word is a word whose presence is required when the 

format in which the word appears is used in a source 
program. Within each format, such words are uppercase 
and underlined. 


Optional Words: 


Connectives: 


Figurative 

Constants: 


Key words are of three types: 

1. Verbs such as ADD, READ, and ENTER. 

2. Required words, which appear in statement and entry 
formats. 

3. Words which have a specific functional meaning such 
as NEGATIVE, SECTION, etc. 

Within each format, uppercase words that are not 
underlined are called optional words and may appear at 
the user's option. The presence or absence of an 
optional word does not alter the semantics of the COBOL 
program In which it appears. 

Series connectives link two or more consecutive 
operands: , (separator comma) or ; (separator 
semicolon). 

Certain reserved words are used to name and reference 
specific constant values. These reserved words are 
specified under Figurative Constant Values in this 
chapter. 


Literals 

A literal is a character-string whose value is implied by an ordered 
set of characters of which the literal is composed or by specification of a 
reserved word which references a figurative constant. Every literal belongs 
to one of two types, nonnumeric or numeric. 



Nonnumeric 

Literals: A nonnumeric literal is a character-string delimited on 

both ends by quotation marks and consisting of any 
allowable character in the computer’s character set. 
Allowed are nonnumeric literals of 1 through 128 
characters in length. To represent a single quotation 
mark character within a nonnumeric literal, two 
contiguous quotation marks must be used. The value of a 
nonnumeric literal in the object program is the string 
of characters itself, except: 

1. The delimiting quotation marks are excluded, and 

2. Each embedded pair ot contiguous quotation marks 
represents a single quotation mark character. 

All other punctuation characters are part of the value of the nonnumeric 
literal rather than separators; all nonnumeric literal are category alpha¬ 
numeric. (See The PICTURE Clause in chapter 3). In addition, hexadecimal 
binary values can be attributed to non-numeric literals by expressing 
literals as: where n is a hexadecimal character in the set 0-9 A-F; 

nn may be repeated up to 128 times, but the number of hex digits must be 
even* 


Numeric Literals: A numeric literal is a character-string whose characters 

are selected from the digits *0’ through '9 1 2 3 4 , the plus 
sign, the minus sign, and/or the decimal point. The 
implementation allows for numeric literals of 1 through 
18 digits in length. The rules for the formation of 
numeric literals are as follows: 

1. A literal must contain at least one digit. 

2. A literal must not contain more than one sign 
character. If a sign is used, it must appear as 
the leftmost character of the literal. If the 
literal is unsigned, the literal is positive. 

3. A literal must not contain more than one decimal 
point. The decimal point is treated as an assumed 
decimal point, and may appear anywhere within the 
literal except as the rightmost character. If the 
literal contains no decimal point, the literal is 
an integer. 

If a literal conforms to the rules for the 
formation of numeric literals, but is enclosed in 
quotation marks, it is a nonnumeric literal and it 
is treated as such by the compiler. 

4. The value of a numeric literal is the algebraic 
quality represented by the characters in the 
numeric literal. Every numeric literal is category 
numeric. (See THE PICTURE CLAUSE in Chapter 3). 
The size of a numeric literal in standard data 
format characters is equal to the number of digits 
specified by the user. 
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Figurative Constant 
Values 


Figurative Constant Values are generated by the compiler and referenced 
through the use of the reserved words given below. These words must not be 
bounded by quotation marks when used as figurative constants. The singular 
and plural forms of figurative constants are equivalent and may be used 
interchangeably. 

The figurative constant values and the reserved words used to reference them 
are shown in Table 2-1. 


Table 2-1. Figurative Constants and their Reserved Words 


CONSTANT 


ZEROS 

ZEROES 


SPACE 

SPACES 


HIGH-VALUE 

HIGH-VALUES 


LOW-VALUE 

LOW-VALUES 


QUOTE 

QUOTES 


ALL literal 


REPRESENTATION 

Represents the value '0*, or one or more 
of the character *0' depending on context. 


Represents one or more of the character 
space from the computer's character set. 

Represents one or more of the character 
that has the highest ordinal position in 
the program collating sequence. 

Represents one or more of the character that 
has the lowest ordinal position in the program 
collating sequence. 

Represents one or more of the character ' " '. 
The word QUOTE or QUOTES cannot be used in 
place of a quotation mark in a source program 
to bound a nonnumeric literal. Thus, QUOTE 
ABD QUOTE is incorrect as a way of stating 
the nonnumeric literal "ABD". 

o* for* nsp« tit loop $£ thm 

aing tor- ch* Ofc he* coaprieihg tfc* 

rn+t- ttbt bp BDts than atm character 
in lgfjggPi) Th* literal must be eirbnr a 
nonnumeric literal or a figurative constant 
other than ALL literal. When a figurative 
constant is used, the word ALL is redundant 
and is used for readability only. 


When a figurative constant represents a string of one or more characters, 
the length of the string is determined by the compiler from context 
according to the following rules: 

1. When a figurative constant is associated with another data item, as 
when the figurative constant is moved to or compared with another data 
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item, the string of characters specified by the figurative constant is 
repeated character by character on the right until the size of the 
resultant string is equal to the size in characters of the associated 
data item. This is done prior to and independent of the application of 
any JUSTIFIED clause that may be associated with the data item. 

2. When a figurative constant is not associated with another data item, as 
when the figurative constant appears in a DISPLAY or STOP statement, 
the length of the string is one character. 

A figurative constant may be used wherever a literal appears in a 
format, except that whenever the literal is restricted to having only 
numeric characters in it, the only figurative constant permitted is ZERO 
(ZEROS, ZEROES). 

When the figurative constants HIGK—VALUE(o) or LOW—VALUE(S) are uatu in 
the source program, the actual character associated with each figurative 
constant depends upon the program collating sequence specified. (See 
THE OBJECT-COMPUTER PARAGRAPH, and THE SPECIAL-NAMES PARAGRAPH in Chapter 
3). 


Each reserved word which is used to reference a figurative constant 
value is a distinct character-string with the exception of the construction 
'ALL literal' which is composed of two distinct character-strings. 

PICTURE Character-Strings 

A PICTURE character-string consists of certain combinations of 
characters in the COBOL character set used as symbols. See 
The PICTURE Clause for the PICTURE character-string and for the rules that 
govern their use. 

Any punctuation character which appears as part of the specification of 
a PICTURE character-string is not considered as a punctuation character, but 
rather as a symbol used in the specification of that PICTURE 
character-string, 

Comment-Entries 

A comment-entry is an entry In the Identification Division that may be 
any combination of characters from the computer's character set. 

CONCEPT OF COMPUTER INDEPENDENT DATA DESCRIPTION 

To make data as computer independent as possible, the characteristics 
or properties of the data are described in relation to a standard data 
format rather than an equipment-oriented format. This standard data format 
is oriented to general data processing applications and uses the decimal 
system to represent numbers (regardless of the radix used by the comput e:) 
and the remaining characters in the CIS COBOL character set to describe 
nonnumeric data items. 

Concept of Levels 

A level concept is inherent in the structure of a logical record. This 
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concept arises from the need to specify subdivisions of a record for the 
purpose of data reference. Once a subdivision has been specified, it may be 
further subdivided to permit more detailed data referral. 

The most basic subdivisions of a record, that is, those not further 
subdivided, are called elementary items; consequently, a record is said to 
consist of a sequence of elementary Items, or the record itself may be an 
elementary item. 

In order to refer to a set of elementary Items, the elementary items 
are combined into groups. Each group consists of a named sequence of one or 
more elementary items. Groups, In turn, may be combined into groups of two 
or more groups, etc. Thus, an elementary item may belong to more than one 
group. 

Level-Numbers 

A system of level-numbers shows the organization of elementary items 
and group items. Since records are the most inclusive data Items, 
level-numbers for records start at 01. Less inclusive data items are 
assigned higher (not necessarily successive) level-numbers not greater in 
value than 49. A maximum of 49 levels in a record is allowed. There is a 
special level-number, 77, which is an exception to this rule (see below). 
Separate entries are written in the source program for each level-number 
used. 


A group includes all group and elementary items following it until a 
level-number less than or equal to the level-number of that group is 
encountered. All items which are immediately subordinate to a given group 
item must be described using identical level-numbers greater than the 
level-number used to describe that group item. 


Two types of entries exist for which there is no true concept of level. 
These are: 

1. Entries that specify noncontiguous working storage and linkage data 
items 

2, Entries that specify condition-names. 

Entries that specify noncontiguous data items, which are not 
subdivisions of other items, and are not themselves subdivided, have been 
assigned the special level-number 77. 

Concept of Classes of Data 

The five categories of data items (see THE PICTURE CLAUSE in Chapter 3) 
are grouped into three classes: alphabetic, numeric, and alphanumeric. For 
alphabetic and numeric, the classes and. categories are synonymous. The 
alphanumeric class includes the categories of alphanumeric edited, numeric 
edited and alphanumeric (without editing). Every elementary item except for 
an index data item belongs to one of the classes and to one of the 
categories. The class of a group item is treated at object time as 
alphanumeric regardless of the class of elementary items subordinate to that 
group item. Table 2-2 depicts the relationship of the class and categories 
of data items. 



Table 2-2 Data Levels* classes and categories 


LEVEL OF ITEM 

CLASS 

CATEGORY 

Elementary 

Alphabetic 

Alphabetic 

Numeric 

Numeric 

Alphanumeric 

Numeric Edited 
Alphanumeric Edited 
Alphanumeric 

Non-Elementary 

Group 

_1 

Alphanumeric 

Alphabetic 

Numeric 

Numeric Edited 
Alphanumeric Edited 
Alphanumeric 


Selection of Character Representation and Radix 


The value of a numeric item may be represented in either binary or 
decimal form, depending on the equipment. In addition* there are several 
ways of expressing decimal. Since these representations are actually 
combinations of bits* they are commonly called binary-coded decimal forms. 
The four standard formats used for storing numeric data in CIS COBOL are as 
follows: 

1. As alphanumeric characters stored one per byte in ASCII representation. 

2. As numeric characters defined by USAGE IS DISPLAY (See The USAGE Clause 

in Chapter 3) one per byte in ASCII representation. If they are signed 
and the sign is specified as INCLUDED, bit 6 of the leading or trailing 
byte of the field is set for negative, depending on the field 
definition* If a SEPARATE sign is specified as a one byte ASCII + or 

a sign is added as the leading or trailing byte. If no SIGN clause 
is specified, bit 6 of the trailing digit is set to indicate negative 
by default. 

3. As numeric characters defined by USAGE IS COMP or COMPUTATIONAL in pure 

binary form. If the field is signed the number is held in its 

twos-complement form. Storage is then dependent on the number of 9*s 
in the PICTURE clause (see The PICTURE Clause in Chapter 3) and on 
whether the field is SIGNed or not (see The SIGN Clause in Chapter 3). 

Table 2-3 shows the storage requirements for each COMP(UTATIONAL) 
PICTURE Clause. 
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PICTURE 


Table 2-3. Numeric Data Storage for the COMP(UTATIONAL) 
Clause. 


Bytes Required 

Number of 

Characters 

Signed 

Unsigned 

1 

1-2 

1-2 

2 

3-4 

3-4 

3 

5-6 

5-7 

4 

7-9 

8-9 

5 



5 

12-14 

12-14 

7 

15-16 

15-16 

8 

17-1 ft 

17-18 


As numeric characters defined by USAGE IS COMPUTATIONAL-3 or USAGE IS 
COMP-3 in packed internal decimal form. Storage is dependent on the 
number of 9's in the PICTURE clause. The decimal numbers are stored as 
signed strings of variable length of 1 through 18 digits. The sign of 
the packed decimal number is always stored in place of the least 
significant quartet of the low order byte. Each byte contains two 
decimal positions (four bits per digit) and the digits (0 - 9) are 
encoded as BCD numbers (0000 - 1001). Numbers are represented in the 
field as right-justified values with a + or - sign as shown in the 
example below. The maximum number of digits permitted in arithmetic 
operands is 18. 

EXAMPLE: 

a. For C0MPUTATI0NAL-3 and PICTURE 9999, the number +1234 would be 
stored as follows: 

... 0 1 2 3 4 F 


0000 0001 0010 0011 0100 1111 


1 byte 

where F represents the non-printing plus sign. 

b. For C0MPUTATI0NAL-3 and PICTURE S9999, the number +1234 would be 
stored as follows: 

Storage would be as in a above except that the least significant 
digit would be replaced by C (1100) representing the plus sign. 

c. For C0MPUTATI0NAL-3 and PICTURE S9999, the number -1234 would be 
stored as follows: 

Storage would be as in a above except that the least significant 
byte would be replaced by D (1101) representing the minus sign. 









Table 2-4 shows the storage requirements for each COMP-3 clause. 


Table 2-4. Numeric Data Storage.for the COMPUTATIO N-3 PICTURE Clause. 


Bytes Required 

Number of Digits 
(Signed or Unsigned) 

1 

2 

1 

2-3 

3 

4-5 

4 

6-7 

5 

8-9 

6 

10-11 

7 

12-13 

8 

14-15 

9 

16-17 

10 

18 


Algebraic Signs 

Algebraic signs fall into two categories: operational signs, which are 
associated with signed numeric data items and signed numeric literals to 
indicate their algebraic properties; and editing signs, which appear on 
edited reports to identify the sign of the item. 

The SIGN Clause permits the programmer to state explicitly, the 
location of the operational sign. The Clause is optional; if it is not used 
operational signs will be represented as defined by setting bit 6 of the 
trailing digit for ASCII numbers, (see above). 

Editing signs are Inserted Into a data Item through the use of the sign 
control symbols of THE PICTURE CLAUSE. 


Standard Alignment Rules 

The standard rules for positioning data within an elementary item 
depend on the category of the receiving item. These rules are: 

1. If the receiving data item is described as numeric: 

a. The data is aligned by decimal point and is moved to the receiving 
character positions with zero fill or truncation on either end as 
required. 

b. When an assumed decimal point Is not explicitly specified, the 
data Item Is treated as if It had an assumed decimal point 
immediately following its rightmost character and is aligned as in 
paragraph a. above. 

2. If the receiving data Item Is a numeric edited data Item, the data 
moved to the edited Item Is aligned by decimal point with zero fill or 
truncation at either end as required within the receiving character 
positions of the data item, except where editing requirements cause 
replacement of the leading zeros. 
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3. 


If the receiving data item is alphanumeric (other than a numeric edited 
data item), alphanumeric edited or alphabetic, the sending data is 
moved to the receiving character positions and aligned at the leftmost 
character position in the data item with space fill or truncation to 
the right, as required. 

If the JUSTIFIED Clause is specified for the receiving item, these 
standard rules are modified as described in THE JUSTIFIED CLAUSE in 
Chapter 3. 

Uniqueness of Reference 
Subscripting 

Subscripts can be used only when reference Is made to an Individual 
element within a list or table of like elements that have not been assigned 
individual data-names (see THE OCCURS CLAUSE in Chapter 4). The subscript 
can be represented either by a numeric literal that is an integer or by a 
data-name. The data-name must be a numeric elementary item that represents 
an integer. The subscript may be signed and, if signed, it must be 
positive. The lowest possible subscript value is 1. This value points to 
the first element of the table. The next sequential elements of the table 

are pointed to by subscripts whose values are 2, 3. The highest 

permissible subscript value, in any particular case, is the maximum number 
of occurrences of the item as specified in the OCCURS clause. 

The subscript, or set of subscripts, that identifies the table element 
is delimited by the balanced pair of separators left parenthesis and right 
parenthesis following the table element data-name. The table element 
data-name appended with a subscript is called a subscripted data-name or an 
identifier. When more than one subscript is required, they are written in 
the order of successively less inclusive dimensions of the data 
organization. 

The format is; 

data-name (subscript-1 [, subscript-2 [, subscript-3 ]]) 


Indexing 

References can be made to individual elements within a table of like 
elements by specifying indexing for that reference. An index is assigned to 
that level of the table by using the INDEXED BY phrase in the definition of 
a table. A name given in the INDEXED BY phrase is known as an index-name 
and is used to refer to the assigned index. The value of an index 
corresponds to the occurrence number of an element in the associated table. 
An index-name must be initialized before it is used as a table reference. 
An index-name can be given an initial value by a SET statement. 

Direct indexing is specified by using an index-name in the form of a 
subscript. Relative indexing is specified when the index-name is followed 
by the operator + or -, followed by an unsigned integer numeric literal all 
delimited by the balanced pair of separators lef t parenthesis and right 
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parenthesis following the table element data-name. The occurrence number 
resulting from relative indexing is determined by incrementing (where the 
operator + is used) or decrementing (when the operator - is used), by the 
value of the literal, the occurrence number represented by the value of the 
index. When more than one index-name is required, they are written in the 
order of successively less inclusive dimensions of the data organization. 

At the time of execution of a statement which refers to an indexed 
table element, the value contained in the index referenced by the index-name 
associated with the table element must neither correspond to a value less 
than one nor to a value greater than the highest permissible occurrence 
number of an element of the associated table. This restriction also applies 
to the value resultant from relative indexing. 

The general format for indexing is: 

! data-name r . I index-name-1 [j+J 

condition-namel ' jliteral-1 

E |index-name-2 ["j + | literal-4]/F, jindex-name-3 

| literal-3 ||_ (literal-5 

Identifier 

An identifier is a terra used to reflect that a data-name, if not unique 
in a program, must be followed by a syntactically correct combination of 
subscripts or indices necessary to ensure uniqueness. 

The general formats for identifiers are: 

Fo rma t 1: 

data-name-1 £(subscript-1 [, subscript-2 [, subscript-3]] 

Format 2: 

* j litsrai-” 4 _, jB±l llt * t ‘ 1 - 2 ] 

[• |sssr ! |Bii •*««-«] -]]]» 

Restrictions on subscripting and indexing are: 

1, A data-name must not itself be subscripted nor indexed when that 

data-name is being used as an index, or subscript. 

2. Indexing is not permitted where subscripting is not permitted. 

3. An index may be modified only by the SET, SEARCH, and PERFORM 

statements. Data items described by the USAGE IS INDEX clause permit 
storage of the values associated with index-names as data in a form 
specified by the implementor* Such data items are called index data 
items. 


literal-2] j 
U±{ literal- <# 
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4. Literal-1, literal-3, literal-5, in the above format must be positive 
numeric integers. Literal-2, literal-4, literal-6 must be unsigned 
numeric integers. 


Condition-Name 

Each condition-name must be unique. 


PROGRAM STRUCTURE 


A CIS COBOL program consists of four divisions: 

L. IDENTIFICATION DIVISION - An identification of the program. 

2. ENVIRONMENT DIVISION - A description of the equipment to be used to 
compile and run the program. 

3. DATA DIVISION - A description of the data to be processed. 

4. PROCEDURE DIVISION - A set of procedures to specify the operations to 
be performed on the data. 

Each division, is divided into sections which are further divided into 
paragraphs, which in turn are made up of sentences. 

THE Swim 1 ' CBHPILER DTltZtiTiYE 

Sooe of the * red-tape, p Mt.jUroaontE required by e ^Lrk-t rtiasi interpretation* 
te nndsr CIS COBOL. It. 1b possible to Fdatrca Lilt cjmpLL^r ro 

insist ou a ■ tcidt AHSI inrerjreciiclLin by ns.in" the H FLAG" d±re;etJvi: T lo, 

cbp remainder of this Chapter thesa av:± jm.-LurJ £ -f + HI r*i-.*wrfv In 

rhL'i mdriunl i ref^renca is i^ck- Lu thu ANS£ switicli bEi«el rLiie ap^lieuv. 

If cbt’ on*o*to f enters the FLAG dtractive at compile rime AfoEL requlces^i-Hi ? 
impJeaeitted in Cl5 CCHJCkEr jt." nandiEtory depending on their l.-vel bs npedfled 
by l \ k ± Federal Compiler Testing Center nndcr the dlrtrtiOn ^rF thr {Je^nral 
.AdmUtiet tatliih (CSA). Sec chc dfl&crlotion the CuiMpIlLir FLAC 

d Lt ec tivt in t ha CIS CD.ftn r 4 [tye ra £ fluid*» 
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IDENTIFICATION DIVISION 


GENERAL DESCRIPTION 

The Identification Division must be included in every ANSI COBOL source 
program. This division identifies both the source program and the resultant 
output listing. In addition, the user may include the date the program is 
written, the date the compilation of the source program is accomplished and 
such other information as desired under the paragraphs in the general format 
shown below. 

ORGANISATION 

Paragraph headers identify the type of information contained in the 
paragraph. The name of the program must be given in the first paragraph, 
which is the PROQIAM-ID paragraph. The other paragraphs are optional and 
may be included in this division at the user's choice, in order of 
presentation shown by the format below. 

STRUCTURE 

The following is the general format of the paragraphs in the 
Identification Division and it defines the order of presentation in the 
source program. 

General format 


fIDENTIFICATION DIVISION .} 
f EKOCRAM-ID . program-name. } 

[AUTHOR. [comment-entry] •••] 

[ INSTALLATION . [comment-entry] ••• ] 

[ DATE-WRITTEN . [comment-entry] •••] 

[ OATE-CCMPILED . [comment-entry] ...] 

[ S ECURITY . [comment-entry] ...] 
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ENVIRONMENT DIVISION 


GENERAL DESCRIPTION 

The Environment Division specifies a standard method of expressing 
those aspects of a data processing problem that are dependent upon the 
physical characteristics of a specific computer. This division allows 
specification of the configuration of the compiling computer and the object 
computer. In addition, information relating to input-output control, 
special hardware characteristics and control techniques can be given. 

The Environment Division must be included in every COBOL source 
program. 

ORGANIZATION 

Two sections make up the Environment Division: the Configuration 
Section and the Input-Output Section. 

The Configuration Section deals with the characteristics of the source 
computer and the object computer. This section is divided into three 
paragraphs: the SOURCE-COMPUTER paragraph, which describes the computer 
configuration on which the source program is compiled; the OBJECT-COMPUTER 
paragraph, which describes the computer configuration on which the object 
program produced by the compiler is to be run; and the SPECIAL-NAMES 
paragraph, which relates the implementation-names used by the compiler to 
the mnemonic-names used in the source program. 

The Input-Output Section deals with the information needed to control 
transmission and handling of data between external media and the object 
program. This section is divided into two paragraphs: the FILE-CONTROL para 
graph which names and associates the files with external media; and the 
I-O-CONTROL paragraph which defines special control techniques to be used in 
the object program. 

STRUCTURE 

The following is the general format of the sections and paragraphs in 
the Environment Division, and defines the order of presentation in the 
source program. 

General Format 

t ENVIRONMENT DIVISION . } 
f CONFIGURATION SECTION , j- 

f SOURCE-COMPUTER . source-computer-entry } 
f OBJECT-COMPUTER . object-computer-entry } 

[ SPECIAL-NAMES . special-names-entry ] 
f INPUT-OUTPUT SECTION . } 

f FILE-CONTROL .} j file-control-entryj ... 

[ I-O-CONTROL . input-output-control-entry ] 



DATA DIVISION 


OVERALL APHIOACH 

The Data Division describes the data that the object program is to 
accept as input, to manipulate, to create, or to produce as output. Data to 
be processed falls into three categories: 

1, That which is contained in files and enters or leaves the internal 
memory of the computer from a specified area or areas. 

2. That which is developed internally and placed into intermediate or 
working storage, or placed into specific format for output reporting 
purposes. 

3* Constants which are defined by the user. 


PHYSICAL AND LOGICAL ASPECTS OF DATA DESCRIPTION 
Data Division Organization 

The DATA DIVISION which is one of the required divisions in a program, 
is subdivided into sections. These are the File, Working-Storage and 
Linkage sections. 

The FILE SECTION defines the structure of data files. Each file is 
defined by a file description entry and one or more record descriptions, or 
by a file description entry and one or more report description entries. 
Record descriptions are written immediately following the file description 
entry. The WORKING-STORAGE SECTION describes records and noncontiguous data 
items which are not part of external data files but are developed and 
processed internally. It also describes data items whose values are 
assigned in the source program and do not change during the execution of the 
object program. The LINKAGE SECTION appears in the called program and 
describes data items that are to be referred to by the calling program and 
the called., program. Its structure is the same as the WORKING-STORAGE 
SECTION. 
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The following gives the general format of the sections in the Data 
Division, and defines the order of their presentation in the source program. 

f DATA DIVISION . } 

FILE SECTION . 

_file-descript ion-entry [record-description-entry]...]..• 

WORKING-STORAGE SECTION . 

7/-level-description-entry i "I 
record-description-entry II “** 

LINKAGE SECTION . 

77-level-descr ipt ion-entry ) "I 
record-description-entry IJ 




1 * 11 * 1 } 
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PROCEDURE DIVISION 


GENERAL DESCRIPTION 

The Procedure Division must be included in every COBOL source program. 
This division may contain declarative procedures. 

Declaratives 


Declarative sections must be grouped at the beginning of the Procedure 
Division preceded by the key word DECLARATIVES and followed by the key words 
END DECLARATIVES. (See descriptions of the USE statement in Chapters 5, 6 
and 7 and the Debug Chapter 10). 

Procedures 


A procedure is gomposed of a or group of successive 

of successive sections within the Procedure Division. If one paragraph is in 
a section, then all paragraphs must be in sections. A procedure-name is a 
word used to refer to a paragraph or section in the source program in which 
it occurs. It consists of a paragraph-name (which may be qualified), or a 
section-name. 

The end of the Procedure Division and the physical end of the program 
is that physical position in a COBOL source program after which no further 
procedures appear. 

A section consists of a section header followed by zero, one, or more 
successive paragraphs. A section ends immediately before the next section 
or at the end of the Procedure Division or, in the declaratives portion of 
the Procedure Division, at the key words END DECLARATIVES. 

A paragraph consists of a paragraph-name followed by a period and a 
space and by zero, one, or more successive sentences. A paragraph ends 
immediately before the next paragraph-name or section-name or at the end of 
the Procedure Division or, in the declaratives portion of the Procedure 
Division, at the key words END DECLARATIVES. 

En CIS CDBlJL paragraph aay be entirely emitted. Ef paragraph 
names ara used they flay be mixcid with section names a a FrquLrad, Ln any 
fljfdar. Mote that :t? JU not passible to GO TO at FsliEOM a, pi^tn uf node 
unless it is lia=3 either a section a paragraph name, 

A sentence consists of one or more statements and is terminated by a 
period followed by a space. 

A statement is a syntactically valid combination of words and symbols 
beginning with a COBOL verb. 

The term 'identifier 1 is defined as the word or words necessary to make 
unique reference to a data item. 
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Execution 


Execution begins with the first statement of the Procedure Division, 
excluding declaratives. Statements are then executed in the order in which 
they are presented for compilation, except where the rules indicate some 
other order. 


General Format 
Procedure Division Header 

The Procedure Division is identified by and must begin with the 
following header: 

PROCEDURE DIVISION [ USING data-name-1 [, data-name-2] ...] 


Procedure Division Body 

The body of the Procedure Division must conform to one of the following 
formats: 

Format 1: 


^ DECLARATIVES . 

| section-name SECTION [segment-number]. declarative-sentence 
[paragraph-name. [sentence] ...] ••• J ••• 


END DECLARATIVES. 


] 


Insection-name SECTION [segment-number . 


j£paragraph-name.J [sentence] 
Format 2: 

j-[paragraph-name. J [sentence] 


]...j 


STATEMENTS AND SENTENCES 

There are three types of statements: 

1. Conditional statements, 

2. Compiler directing statements, 

3. Imperative statements. 

There are three types of sentences: 

1. Conditional sentences, 

2. Compiler directing sentences, 

3. Imperative sentences. 



Conditional Statement 


A conditional statement specifies that the truth value of a condition 
is to be determined and that the subsequent action of the object program is 
dependent on this truth value. 

A conditional statement is one of the following: 

* An IF statement. 

* A READ statement that specifies the AT END or INVALID KEY phrase. 

* A WRITE statement that specifies the INVALID KEY phrase 

* A START, REWRITE or DELETE statement that specifies the INVALID 
KEY phrase. 

* An arithmetic statement (ADD, DIVIDE, MULTIPLY, SUBTRACT) that 
specifies the SIZE ERROR phrase. 

* A CALL statement that specifies the ON OVERFLOW phrase. 


Conditional Sentence 


A conditional sentence is a conditional statement, optionally preceded 
by an imperative statement, terminated by a period followed by a space. 


Compiler Directing Statement 

A compiler directing statement consists of a compiler directing verb 
and its operands. The compiler directing verbs are COPY, ENTER and USE (see 
THE COPY STATEMENT in Chapter 9, THE ENTER STATEMENT in Chapter 3, and THE 
USE STATEMENT in Chapters 5, 6 and 7). A compiler directing statement 
causes the compiler to take a specified action during compilation. 


Compiler Directing Sentence 


A compiler directing sentence is a single compiler directing statement 
terminated by a period followed by a space. 
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Imperative Statement 


An* liaperatlve statement Indicates a specific unconditional action to be 
taken by the object program. An Imperative statement Is any statement that 
is neither a conditional statement, nor a compiler directing statement. An 
Imperative statement may consist of a sequence of Imperative statements, 
each possibly separated from the next by a separator. 

The Imperative verbs are: 


ACCEPT 

60 

SET 

ADD 1 

INSPECT 

START 2 

ALTER 

MOVE 

STOP 

CALL 3 

MULTIPLY 1 

SUBTRACT 

CANCEL 

OPEN 

WRITE 5 

CLOSE 

PERFORM 


DELETE 2 

READ 4 



REWRITE 2 



DISPLAY 

DIVIDE 1 

EXIT 

1 - Without the optional SIZE ERROR phrase. 

2 - Without the optional INVALID KEY phrase. 

3 - Without the optional ON OVERFLOW phrase. 

4 - Without the optional AT END phrase or INVALID KEY phrase. 

5 - Without the optional INVALID KEY phrase or END-OF-PAGE phrase. 

When 'imperative-statement* appears in the general format of 
statements, 'imperative-statement 1 refers to that sequence of consecutive 
imperative statements that must be ended by a period or an ELSE phrase 
associated with a previous IF statement. 


Imperative Sentence 

An imperative sentence is an imperative statement terminated by a 
period followed by a space. 



REFERENCE FORMAT 


GENERAL DESCRIPTION 

The reference format, which provides a standard method for describing 
COBOL source programs. Is described In terms of character positions In a 
line on an Input-output medium* The CIS COBOL compiler accepts source 
programs written In reference format and produces an output listing of the 
source program input in reference format. 

The rules for spacing given in the discussion of the reference format 
take precedence over all other rules for spacing. 

The divisions of a source program must be ordered as follows: the 
Identification Division, then the Environment Dlvlsicn, then the Data 
Division, then the Procedure Division. Each division must be written 
according to the rules for the reference format. 

REFERENCE FORMAT REPRESENTATION 

_The reference format for a line is represented as in Figure 2-1._ 


Jla rgl n Ma rglil Ma rgln Ma rgln Margin 

L CAB R 



1 

l 

l 1 ... 

1 2 3 4 5 6 7 8 

9 0 

1 

2 5 

Sequence Number Area A 

Area A 


Area B 


Indicator Area 


Margin L is immediately to the left of the leftmost character position 

of a line. 

Margin C is between the 6th and 7th character positions of a line. 

Margin A is between the 7th and 8th character positions of a line. 

Margin B is between the 11th and 12th character positions of a line. 

Margin R is immediately to the right of the rightmost character 

position of a line. 

The sequence number area occupies six character positions (1-6), and is 
between Margin L and Margin C. 

The indicator area is the 7th character position of a line. 

Area A occupies character positions 8, 9, 10 and 11, and is between 

margin A and margin B. 

Area B occupies character positions 12 through 72 inclusive; it begins 
immediately to the right of Margin B and terminates immediately to the left 
of Margin R. 


Figure 2-1. Reference Format for a COBCL Source Line. 
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Sequence Numbers 


A sequence number, consisting of six digits in the sequence area, may 
be used to label a source program line. 

Continuation of Lines 


Whenever a sentence, entry, phrase, or clause requires more than one 
line, it may be continued by starting subsequent line(s) in area B. These 
subsequent lines are called the continuation line(s). The line being 
continued is called the continued line. Any word or literal may be broken 
in such a way that part of it appears on a continuation line. 

A hyphen in the indicator area of a line indicates that the first 
nonblank character in area B of the current line is the successor of the 
last nonblank character of the preceding line without any intervening space. 
However, if the continued line contains a nonnumeric literal without closing 
quotation mark, the first nonblank character in area B on the continuation 
line must be a quotation mark, and the continuation starts with the 
character immediately after that quotation mark. All spaces at the end of 
the continued line are considered part of the literal. Area A of a 
continuation line must be blank. 

If there is no hyphen in the indicator area of a line, it is assumed 
that the last character in the preceding line is followed by a space. 

Blank Lines 


A blank line is one that is blank from margin C to margin R, inclusive. 
A blank line can appear anywhere in the source program, except immediately 
preceding a continuation line. (See Figure 2-1). 


DIVISION, SECTION, PARAGRAPH FORMATS 
Division Header 


The division header must start in area A. (See Figure 2-1). 
Section Header 


The section header must start in area A. (See Figure 2-1). 

A section consists of paragraphs in the Environment and Procedure 
Divisions and Data Division entries in the Data Division. 

Paragraph Header, Paragraph-Name and Paragraph 

A paragraph consists of a paragraph-name followed by a period and a 
space and by zero, one or more sentences, or a paragraph header followed by 
one or more entries. Comment entries may be included within a paragraph. 
The paragraph header or paragraph-name starts in area A of any line 
following the first line of a division or a section. 




The first sentence or entry in a paragraph begins either on the same 
line as the paragraph header or paragraph-name or in area B of the next 
nonblank line that is not a comment line. Successive sentences or entries 
either begin in area B of the same line as the preceding sentence or entry 
or in area B of the next nonblank line that is not a comment line. 

IfBtl that WTStS, Otlti&Lr siKLSt.m iiMrac : outliet fM 

ice* k or ixoM *. . • : ' 

When the sentences or entries of a paragraph require more than one line 
they may be continued as described in CONTINUATION OF LINES in this Chapter. 

DATA DIVISION ENTRIES 

Each Data Division entry begins with a level Indicator or a 
level-number, followed by a space, followed by its associated name (except 
in the Report Section), followed by a sequence of independent descriptive 
clauses. Each clause, except the last clause of an entry, may be terminated 
by either the separator semicolon or the separator comma. The last clause 
is always terminated by a period followed by a space. 

There are two types of Data Division entries: those which begin with a 
level indicator and those which begin wIlI. a level-number. 

A level indicator is the indicator: FD (see THE FILE DESCRIPTION 
-COMPLETE ENTRY SKELETON in Chapters 5, 6 and 7) 

In those Data Division entries that begin with a level indicator, the 
level indicator begins in area A followed by a space and followed in area B 
with its associated name and appropriate descriptive information. 

Those Data Division entries that begin with level-numbers are called 
data description entries. 

A level-number has a value taken from the set of values 1 through 49, 
77. Level-numbers in the range 1 through 9 may be written either as a 
single digit or as a zero followed by a significant digit. At least one 
space must separate a level-number from the word following the level-number. 

In those data description entries that begin with level-number 01 or 
77, the level-number begins in area A followed by a space and followed in 
area B by its associated record-name or item-name and appropriate 
descriptive information. 

Successive data description entries may have the same format as the 
first or may be indented according to level-number. The entries in the 
output listing need be indented only if the input is indented. Indentation 
does not affect the magnitude of a level-number. 

When level-numbers are to be Indented, each new level-number may begin 
any number of spaces to the right of margin A. The extent of indentation to 
the right is determined only by the width of the physical medium. 
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DECLARATIVES 


The key word DECLARATIVES and the key words END DECLARATIVES that 
precede and follow, respectively, the declaratives portion of the Procedure 
Division must each appear on a line by themselves. Each must begin in area 
A and be followed by a period and a space (see Figure 2-1). 

COMMENT LINES 

A comment line is any line with an asterisk in the continuation 
indicator area of the line. A comment line can appear as any line in a 
source program after the Identification Division header. Any combination of 
characters from the computer's character set may be included in area A and 
area B of that line (see Figure 2-1). The asterisk and the characters in 
area A and area B will be produced on the listing but serve as documentation 
only. A special form of comment line represented by a stroke in the 
indicator area of the line causes page ejection prior to printing the 
comment. 

Successive comment lines are allowed. Continuation of comment lines is 
permitted, except that each continuation line must contain an 1 *' in the 
indicator area. 


RESERVED WORDS 


A full list of reserved words is given in Appendix A. 



CHAPTER 3 




THE NUCLEUS 


fmm FUNCTION OF THE NUCLEUS 


|*9RIMQ 


The Nucleus provides a basic language capability for the internal 
processing of data within the basic structure of the four divisions of a 
program. 

IDENTIFICATION DIVISION IN THE NUCLEUS 
GENERAL DESCRIPTION 

The Identification Division must be included in every COBOL source 
program. This division identifies the source program and the resultant 
output listing. In addition, the user may include the date the program is 
written and such other information as desired under the paragraphs in the 
general format rhovn below. 


ORGANIZATION 


Paragraph headers identify the type of information 
paragraph. The name of the program must be given in the 
which is the PROGRAM-ID paragraph. The other paragraphs 
may be included in this division at the user's choice, 
presentation shown by the general format below. 


contained in the 
first paragraph, 
are optional and 
in the order of 


Structure 







The general format of the paragraphs in the Identification Division is 
given below and shows the order of presentation in the source program. 

General Format 

£ IDENTIFICATION DIVISION £ 

£ PROGRAM-ID . program-name. £ 

AUTHOR . [comment-entry] ... 

£ INSTALLATION . [comment-entry] . ♦. 

£ DATE-WRITTEN ♦ [comment-entry] ... 

[ DATE-COMPILED . [comment-entry] ... ] 

£ SECURITY . [comment-entry] ... 



Syntax Rules 


1. The Identification Division must begin with the reserved words 
IDENTIFICATION DIVISION followed by a period and a space. 

2. The comment-entry may be any combination of the characters from the 
computer's character set and may be written in area B on one or more 
lines. The continuation of the comment-entry by the use of the hyphen 
in the indicator area is not permitted. 

THE PROGRAM-ID PARAGRAPH 

Function 


The PROGRAM-ID paragraph gives the name by which a program is 
identified. 

General Format 


PROGRAM-ID . program-name. 


Syntax Rules 


I. The program-name must conform to the rules for formation of a 

user-defined word . 

General Rules 

1. The PROGRAM-ID paragraph must contain the name of the program and must 
be present in every program 

2. The program-name identifies the source program and all listings 
pertaining to a particular program. 

THE DATE-COMPILED PARAGRAPH 

Function 


The DATE-COMPILED paragraph provides the compilation date in the 
Identification Division source program listing. 

General Format 

DATE-COMPILED . comment-entry 


Syntax Rule 


The comment-entry may be any combination of the characters from the 
computer's character set. The continuation of the comment entry by use of 
the hyphen is not permitted; however, the comment entry may be contained on 
one or more lines. 



General Rule 


The paragraph-name DATE-COMPILED causes a date string to be inserted 
during program compilation. If a DATE-COMPILED paragraph is present, the 

comment-entry is replaced in its entirety by the date string. 

' . . 


replacement string for your implements 



ENVIRONMENT DIVISION IN THE NUCLEUS 
CONFIGURATION SECTION 
The SOURCE-COMPUTER Paragraph 
Function 

The SOURCE-COMPUTER paragraph identifies the computer upon which the 
program is to be compiled. 

General Format 

SOURCE-COMPUTER . computer-name. 


Syntax Rule 

Computer-name must be one COBOL word defined by the user. 

General Rules 

The computer-name provides a means for identifying equipment 
configuration, in which case the computer-name and its implied configuration 
are specified by the user. The SOURCE-COMPUTER paragraph is treated as for 
purposes only. 


The OBJECT-COMPUTER Paragraph 
Function 

The OBJECT-COMPUTER Paragraph identifies the computer on which the 
program is to be executed. 
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General Format 


OBJECT-COMPUTER. 


computer-name I, MEMORY SIZE integer 


i WORDS 
[CHARACTERS 
i MODULES 


0 


[,PROGRAM COLLATING SEQUENCE IS alphabet-name] 


[. SEGMENT-LIMIT IS segment-number] 


Syntax Rules 

1. Computer-name must be one COBOL word defined by the user. 

2. Segment-number must be an integer in the range 1 through 49. 


General Rules 

1. The computer-name provides a means for identifying equipment 
configuration, in which case the computer-name and its implied 
configurations are specified by the user. The configuration definition 
contains specific information concerning the memory size. The 

treated 

2. If the PROGRAM COLLATING SEQUENCE Clause is specified, the collating 
sequence associated with alphabet-name is used to determine the truth 
value of any nonnumeric comparisons: 

Explicitly specified in relation conditions (see Relation Condition 
later in this Chapter). 

3. If the PROGRAM COLLATING SEQUENCE Clause is not specified, the native 
collating sequence is used. Appendix B lists the full ASCII collating 
sequence (native) and those characters used in COBOL 

4. If the PROGRAM COLLATING SEQUENCE Clause is specified, the program 
collating sequence is the collating sequence associated with the 
alphabet-name specified in that Clause. 

5. The PROGRAM COLLATING SEQUENCE Clause is also applied to any nonnumeric 
merge or sort keys. 





The SPECIAL-NAMES Paragraph 


Function 

The SPECIAL-NAMES paragraph provides a means of relating 
implementor-names to user-specified mnemonic-names and of relating 
alphabet-names to character sets and/or collating sequences. 

General Format 


SPECIAL-NAMES. 


n \ 


SWITCH 

,SYSIN 
, SYSOUT 


[IS mnemonic-name] 


IS mnemonic-name 


, 0N STATUS IS condition-name-1 
[,OFF STATUS LS condition-name-2] 

,OFF STATUS _IS^ condition-name-2 
[,0N STATUS IS condition-name-1] 


[ ,TAB IS mnemonic-name] 


" 

/ STANDARD-1] 1 

, alphabet-name IS 

\ NATIVE f J 


[, CURRENCY SIGN IS literal-9] 
[, DECIMAL-POINT IS COMMA ] 

[ b CONSOLE IS CM} 

[* CPPISDR ia data-Liirte-1 ] 
General Rules 


1. The status of the switch is specified by condition-names and 
interrogated by testing the condition-names (see Switch-Status 
Condition later in this Chapter). 

2. The alphabet-name clause provides a means for relating a name to a 

specified character code set and/or collating sequence. When 

alphabet-name is referenced in the PROGRAM COLLATING SEQUENCE clause 
(see THE OBJECT-COMPUTER PARAGRAPH in this Chapter). The alphabet-name 
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clause specifies a collating sequence. When alphabet-name is 
referenced in a CODE-SET clause in a file description entry (see The 
File Description - Complete Entry Skeleton in Chapter 5), the 
alphabet-name clause specifies a character code set. 

a. If the STANDARD-1 phrase is specified, the character code set or 
collating sequence identified is that defined in American National 
Standard Code for Information Interchange, X3.4-1968. Appendix B 
defines the correspondence between the characters of the standard 
character set and the characters of the native character set. 

b. If the NATIVE phrase is specified, the native character code set 
or native collating sequence is used. The native collating 
sequence is as in ANSI publication X3. 4-1968 (see Appendix B). 

The character that has the highest ordinal position in the program 
collating sequence specified is associated with the figurative constant 
HIGH-VALUE. If more than one character has the highest position in the 
program collating sequence, the last character specified. 

The character that has the lowest ordinal position in the program 
collating sequence specified is associated with the figurative constant 
LOW-VALUE. If more than one character has the lowest position in the 
program collating sequence, the first character specified is associated 
with the figurative constant LOW-VALUE. 

The literal which appears in the CURRENCY SIGN IS literal clause is 
used in the PICTURE clause to represent the currency symbol. The 
literal is limited to a single character and must not be one of the 
following characters. 

* digits 0 thru 9; 

* alphabetic characters A, B, C, D, L, P, R, S, V, X, Z, or the 

space; 

* special characters '+ 1 , 1 *(*, ,,M , 

1 /'or * = \ 

If this clause is not present, only the currency sign is used in the 
PICTURE clause. 

The clause DECIMAL-POINT IS COMMA means that the function of comma and 
period are exchanged in the character-string of the PICTURE clause and 
in numeric literals. 

Thn clsuse CONSOLE IS changes the defaults in cha ACCEPT and DISPLAY 
statements to the CIS COBOL intetactlut taenia Lou that enable d.%ta to 
be o^r.cptcd ur display^ at any specified point on the screen. Sse THE 
ACCEFi STATEtfEHT and tho DISPLAY STATEMENT in this Chapter. 

The clause CURSOR IS npus 1 i : I m the to contain t.o* CRT 

address as us-nd by the ACCEPT stat-pmentr If CURSOR IS is not specified 
the default cursor position on executing an ACCEPT statement is the 


68 



! iLcflu. (iK.il r. i. I, V "I. ‘iiL : r.v r|i? OiBSiJL? I mis- 

cutLiiLdQ a prdjsr-^ ljj erz ^rj«5j.f tan d: tin ■ ni uf c-z-iuiiian af ,-hi# 

aUi. ^[:tlLFl s 11 c r -ah l - ftr lq ^pecirir ■ jk lazcLiI pc si Him 4* utian 

j £ Bay ACCKT h r. a cm c al, Thin -La l u.--:r:j. -,-icti when p tc£t-= nm = i\. 

^.-LL-Lypj np-jrstor pi'r=ipLJT Thi ,?±r j ttmir on!v raavt ih> 

tynar to civ 'ilEfCt^d sptica piur*r L prtss BLETffltf tsr Juat prep 

IfcTWHT tan the nfitaitlt up Lion* 

:^t3-c«4me Jtmkaljifi tha pdtt of a rnj a'l^g if=L l. t^n bcul 

3l(otlf i ~-Fiii l ra presence. .t lint; ticaui in r.liy r^nfi*. otit to cha ELfl-rf.niDF 

■ rumba: af linu.-^ fjj.- cfoe uaer nml lIj- Isax* lian-i? l-cadt 9 " 

i □ p Ecu oi' l' ^ eimroct^r porcine ip jiu i .,ngii otg; Lht Mutlmu-.* 

>ojit Idas ^Llcwe-J Lh- iiidtu of ch* i?>h hctub. If iJ^cfl-nflrr.i? ir 

s--•=rc r nhti afSimi I? si> > + rr.^- r:= __-l l -,p ..,h. l^.z u.i-d, L.€,, 

^Efsitina l€ r:- li ■ . uf *..ttan. *l"i ‘llii 

AfTCEfT 3XAfEHfiNT Ul*r ih ili« ifr^ieri 

I Li. S!^UT -i uiS S¥£!,Jt)T apecif* : - -m Etrea- iip- ■ .■■te. outrun 

fire cm -reaper r i-.-r l v ■ it "Jlis rtiei« fh® ^ ^t'c; CfceEed as t.u 

■1'-o^rntntlni] vuJ?tiCn2 

I I Trfvft spi&rif terJ lU*± i M y -to-Keadf-:- ra pyoetfli Luai:tion Chat i=.ipi b* ueen 
■j'J th LTRIT2 TJWMri. ll : ? cryflisj =a to t unpdm«iiriarii>n purpa-aer, h^i 
ul cJsls rel?aeA, 


69 



DATA DIVISION IN THE NUCLEUS 


WORKING STORAGE SECTION 

The Working-Storage Section is composed of the section header, followed 
by data description entries for noncontiguous data items and/or record 
description entries. Each Working-Storage Section record name and 
noncontiguous item name must be unique. 

Noncontiguous Working-Storage 

Items and constants in Working-Storage which bear no hierarchical 
relationship to one another need not be grouped into records, provided they 
do not need to be further subdivided. Instead, they are classified and 
defined in a separate data description entry which begins with the special 
level-number, 77. 

The following data clauses are required in each data descriptions 
entry: 

* Level-number 77 

* Data-name 

* The PICTURE clause or the USAGE IS INDEX clause 

Other data description clauses are optional and can be used to complete 
the description of the item if necessary. 

Working-Storage Records 

Data elements and constants in Working-Storage which bear a definite 
hierarchic relationship to one another must be grouped into records 
according to the rules for formation of record descriptions. All clauses 
which are used in record descriptions in the File Section can be used in 
record descriptions in the Working-Storage Section. 

Initial Values 


The initial value of any item in the Working-Storage Section except an 
index data item is specified by using the VALUE clause with the data item. 
The initial value of any index data item is unpredictable. 


THE DATA DESCRIPTION - COMPLETE ENTRY SKELETON 
Function 


A data description entry specifies the characteristics of a particular 
item of data. 



General Format 








, , . f data-name-1 \ 

level-number ) FILLER f 


[; REDEFINES data-name-2] 

T | PICTURE \ T „ , . 1 

I; -> IS character-string 


/ COMPUTATIONAL 
\ COMP 

; [USAGE IS k COMPUTATIONAL-3 
/ COMP-3 
\ DISPLAY 

[; [ SIGN IS] { TRAILING } [SEPARATE CHARACTER]J 


r (SYNCHRONIZED) j LEFT ) ] 
L ; I SYNC f > RIGHT f I 

f »■»] 

(; BLANK WHEN ZERO ] 

(; VALUE IS literal] 


Syntax Rules 

1. The level-number may be any number from 01-49 or 77. 

2. The clauses may be written in any order with two exceptions: the 
data-name-L or FILLER clause must immediately follow the level-number; 
the REDEFINES clause, when used, must immediately follow the 
data-name-I clause. 

3. The PICTURE clause must be specified for every elementary item except 
an index data item, in which case use of this clause is prohibited. 

General Rule 


The clauses SYNCHRONIZED, PICTURE, JUSTIFIED, and BLANK WHEN ZERO, must 
not be specified except for an elementary data item. 




THE BLANK WHEN ZERO CLAUSE 


Function 


The BLANK WHEN ZERO clause permits the blanking of an item when its 
value is zero. 

General Format 


BLANK WHEN ZERO 
Syntax Rule 

The BLANK WHEN ZERO clause can be used only for an elementary item 
whose PICTURE is specified as numeric with implicit or explicit USAGE IS 
DISPLAY, or numeric edited. (See THE PICTURE CLAUSE later in this Chapter). 

General Rules 


1. When the BLANK WHEN ZERO clause is used, the item will conjoin nothing 
but spaces if the value of the item is zero. 

2. When the BLANK WHEN ZERO clause is used for an item whose PICTURE is 
numeric, the category of the item is considered to be numeric edited. 


THE DATA-NAME OR FILLER CLAUSE 
Function 


A data-name specifies the name of the data being described. The word 
FILLER specifies an elementary item of the logical record that cannot be 
referred to explicitly. 

General Format 


{ data-name \ 

FILLER J 

Syntax Rule 

1. In the File, Working-Storage, Communication and Linkage Sections, a 
data-name or the key word FILLER must be the first word following the 
level-number in each data description entry. 

General Rule 


1. The key word FILLER may be used to name an elementary Item in a record. 
Under no circumstances can a FILLER item be referred to explicitly. 
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THE JUSTIFIED CLAUSE 


piSfll 

pppiQ 

pRjNPl 


Function 


The JUSTIFIED clause specifies non-standard positioning of data within 
a receiving data item. 

General Format 


JUSTIFIED 

JUST 


RIGHT 


Syntax Rules 


1. The JUSTIFIED clause can be specified only at the elementary item 
level. 

2. JUST is an abbreviation for JUSTIFIED. 

3. The JUSTIFIED clause cannot be specified for any data item described as 
numeric or for which editing is specified. 



! 


General Rules 


1. When a receiving data item is described with the JUSTIFIED clause and 
the sending data item is larger than the receiving data item, the 
leftmost characters are truncated. When the receiving data item is 
described with the JUSTIFIED clause and it is larger than the sending 
data item, the data is aligned at the rightmost character position in 
the data item with space fill for the leftmost character positions. 

2. When the JUSTIFIED clause is omitted, the standard rules for aligning 
data within an elementary item apply. (See Standard Alignment Rules .) 



LEVEL NUMBER 


Function 


The level-number shows the hierarchy of data within a logical record. 
In addition, it is used to identify entries for working storage items, 
linkage items. 


General Format 


level-number 


Syntax Rules 

1. A level-number is required as the first element in each data 
description entry. 

2. Data description entries subordinate to a Pile Description entry must 
have level-numbers with the values 01-49. (See THE FILE DESCRIPTION in 
Chapter 5). 

3. Data description entries in the Working-Storage Section and Linkage 
Section must have level-numbers with the values 01-49. 


General Rules 


1. The level-number 01 identifies the first entry in each record 
description or a report group. 

2. The level-number 77 is assigned to identify noncontiguous working 
storage data items, noncontiguous linkage data items, and can be used 
only as described by Format 1 of the data description skeleton. (See 
THE DATA DESCRIPTION - COMPLETE ENTRY SKELETON in this Chapter). 

3. Multiple level 01 entries subordinate to any given level indicator, 
represent implicit redefinitions of the same area. 



THE PICTURE CLAUSE 


JSPS3B 

jfWKH 


JBIPW 

ppm 



Function 


The PICTURE clause describes the general characteristics and editing 
requirements of an elementary item. 

General Format 


fPICTURE l , 

-> IS character-string 

Syntax Rules 

1. A PICTURE clause can be specified only at the elementary item level. 

2. A character-string consists of certain allowable combinations of 
characters in the COBOL character set used as symbols. The allowable 
combinations determine the category of the elementary item. 

3. The maximum number of characters allowed in the character-string is 30. 

4. The PICTURE clause must be specified for every elementary item except 
an index data item, in which case use of this clause is prohibited. 

5. PIC is an abbreviation for PICTURE 

6. The asterisk when used as the zero suppression symbol and the clause 
BLANK WHEN ZERO may not appear in the same entry. 

General Rules 


There are five categories of data that can be described with a PICTURE 
clause: alphabetic, numeric, alphanumeric, alphanumeric edited, and numeric 

edited. General rules within these categories are given below: 

Alphabetic Data Rules 

1. Its PICTURE character-string can only contain the symbols 'A 1 , ' B 1 ; and 

2. Its contents when represented in standard data format must be any 

combination of the twenty-six (26) upper-case letters of the Roman 

alphabet and the space from the COBOL character set. 

Numeric Data Rules 

1. The PICTURE character-string can only contain the symbols '9' , 1 P 1 , 

’S', and 1 V*. The number of digit positions that can be described by 
the PICTURE character-string must range from 1 to 18 inclusive. 

If unsigned, the data in standard data format must be a combination of 
the Arabic numerals 'O'. '1'. , 2*. ’3*. '4'. 'S'. '6'. '7'. *8'. and 
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'9'; if signed, the item may also contain a ' + ', or other 

representation of an operational sign, (see THE SIGN CLAUSE later in 
this Chapter). 

Alphanumeric Data Rules 

1. The PICTURE character-string is restricted to certain combinations of 

the symbols * A*, 'X* , *9', and the item is treated as if the 

character-string contained all X's. A PICTURE character-string which 
contains all A's or all 9's does not define an alphanumeric item; and 

2. The contents when represented in standard data format can consist of 
any characters in the computer's character set. 

Alphanumeric Edited Data Rules 

1. Its PICTURE character-string is restricted to certain combinations of 
the following symbols: 'A', 'X*, '9', 'B*, 'O', and '/' as follows: 

a. The character-string must contain at least one 'B* and at least 

one 'X' or at least one 'O' (zero) and at least one 'X' or at 

least one '/' (stroke) and at least one 'X'; or 

b. The character-string must contain at least one *0* (zero) and at 
least one 'A' or at least one '/' (stroke) and at least one *A'. 

2. The contents when represented in standard data format are allowable 

characters in the computer's set. 

Numeric Edited Data Rules 


Its PICTURE character-string is restricted to certain combinations of 
the symbols 'B\ 'P', 'V\ ’Z\ 'O’, ’9', \\ ’ + ', 

'CR' , 'DB', and the currency symbol. The allowable combinations are 

determined from the order of precedence of symbols and the editing 
rules as follows: 


a. The number of digit positions that can be represented in the 
PICTURE character-string must range from l to LB inclusive. 

b. The character-string must contain at least one 'O', 'B', '/', 'Z*, 

'+', '»'» 1 '-*♦ 'CR', 'DB', or currency symbol. 

2. The contents of the character positions of these symbols that are 

allowed to represent a digit in standard data format, must be one of 
the numerals. 


Elementary Item Size 

The size of an elementary item, where size means the number of 
character positions occupied by the elementary item in standard data format, 
is determined by the number of allowable symbols that represent character 
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positions. An integer which is enclosed in parentheses following the sybols 
'A', V, ’X\ ’9', 'P\ 'Z' , ’B\ */'. 'O’, '+*, or the currency 

symbol indicates the number of consecutive occurrences of the symbol. Note 
that the following symbols may appear only once in a given PICTURE: 'S', 
'V, 1 .', *CR', and *DB 1 . 

Symbols Used 

The functions of the symbols used to describe an elementary item are 
explained as follows: 

A - Each 'A' in the character-string represents a character position which 
can contain only a letter of the alphabet or a space, 

B - Each *B f in the character-string represents a character position into 
which the space character will be inserted. 

P - Each 'P 1 indicates an assumed decimal scaling position and is used to 
specify the location of an assumed decimal point when the point is not 
within the number that appears in the data item. The scaling position 
character 'P* is not counted in the size of the data item. Scaling 
position characters are counted in determining the maximum number of 
digit positions (18) in numeric edited items or numeric items. The 
scaling position character 'P* can appear only to the left or right as 
a continuous string of 'P's within a PICTURE description; since the 
scaling position character *P' implies an assumed decimal point (to the 
left of ’P’s if 'P’s are leftmost PICTURE characters and to the right 
if 'P's are rightmost PICTURE characters), the assumed decimal point 
symbol 'V' is redundant as either the leftmost or rightmost character 
within such a PICTURE description. The character 'P' and the insertion 
character (period) cannot both occur in the same PICTURE 

character-string. If, in any operation involving conversion of data 
from one form of internal representation to another, the data item 
being converted is described with the PICTURE character 1 P 1 , each digit 
position described by a ' P f is considered to contain the value zero, 
and the size of the data item is considered to Include the digit 
positions so described. 

S - The letter *S' is used in a character-string to indicate the presence, 
but neither the representation nor, necessarily, the position of an 
operational sign; it must be written as the leftmost character in the 
PICTURE. The 'S' is not counted in determining the size (in terms of 
standard data format characters) of the elementary item unless the 
entry Is subject to a SIGN clause which specifies the opt ional. SEPARATE 
CHARACTER phrase. (See the SIGN Clause in this Chapter.) 

V - The 'V' is used in a character-string to indicate the location of the 
assumed decimal point and may only appear once in a character-string. 
The 'V' does not represent a character position and therefore is not 
counted in the size of the elementary item. When the assumed decimal 
point is to the right of the rightmost symbol in the string the 'V' is 
redundant. 
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X - Each , X' in the character-string is used to represent a character 
position which contains any allowable character from the computers 
character set. 

Z - Each 1 Z* in a character-string may only be used to represent the 
leftmost numeric character positions which will be replaced by a space 
character when the contents of that character position is zero. Each 
'Z' is counted in the size of the item. 

9 - Each '9' in the character-string represents a character position which 
contains a numeral and is counted in the size of the item. 

0 - Each *0' (zero) in the character-string represents a character position 
into which the numeral zero will be inserted. The '0* is counted in 
the size of the item. 

/ - Each */' (stroke) in the character-string represents a character 
position into which the stroke character will be inserted. The V* is 
counted in the size of the item. 

, - Each (comma) in the character-string represents a character 

position into which the character *will be inserted. This character 
position is counted in the size of the item. The insertion character 
must not be the last character in the PICTURE character-string. 

. - The character (period) in the character-string is an editing symbol 
which represents the decimal point for alignment purposes and in 
addition, represents a character position into which the character 
will be inserted. The character , . t is counted in the size of the 
item. For a given program the functions of the period and comma are 
exchanged if the clause DECIMAL-POINT IS COMMA is stated in the 
SPECIAL-NAMES paragraph. In this exchange the rules for the period 
apply to the comma and the rules for the comma apply to the period 
wherever they appear in a PICTURE clause. The insertion character 
must not be the last character in the PICTURE character-string. 

+, CR, DB - These symbols are used as editing sign control symbols. When 
used, they represent the character position into which the 
editing sign control symbol will be placed. The symbols are 
mutually exclusive in any one character-string and each 

character used in the symbol is counted in determining the 

size of the data item. 

* - Each •*' (asterisk) in the character-string represents a leading 
numeric character position into which an asterisk will be placed when 
the contents of that position is zero. Each is counted in the size 

of the item. 

cs - The currency symbol in the character-string represents a character 
position into which a currency symbol is to be placed, The currency 
symbol in a character-string is represented by either the currency sign 

or by the single character specified in the CURRENCY SIGN clause in the 

SPECIAL-NAMES paragraph. The currency symbol is counted in the size of 
the item. 
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Editing Rules 


There are two general methods of performing editing in the PICTURE 
clause, either by insertion or by suppression and replacement. There are 
four types of insertion editing available. They are: 

* Simple insertion 

* Special insertion 

* Fixed insertion 

* Floating insertion 

There are two types of suppression and replacement editing: 

* Zero suppression and replacement with spaces 

* Zero suppression and replacement with asterisks 

The type of editing which may be performed upon an item is dependent 
upon the category to which the item belongs. Table 3-1 specifies which type 
of editing may be performed upon a given category. 

Table 3-1. Editing Types for Data Categories 


CATEGORY 

TYPE OF EDITING 

Alphabetic 

Simple insertion 'B 1 only 

Numeric 

None 

Alphanumeric 

None 

Alphanumeric Edited 

Simple insertion ’O', 'B T and '/* 

Numeric Edited 

All, but see NOTE below 


NOTE: 

Floating insertion editing and editing by zero suppression and 
replacement are mutually exclusive in a PICTURE clause. Only one type 
of replacement may be used with zero suppression in a PICTURE clause. 

Simple Insertion Editing 

Simple Insertion Editing. The * , 1 (comma), 1 B 1 (space), *0 1 (zero), 
and ' / 1 (stroke) are used as the insertion characters. The insertion 
characters are counted in the size of the item and represent the position in 
the item into which the character will be inserted. 

Special Insertion Editing 

Special Insertion Editing. The 1 .* (period) is used as the insertion 
character. In addition to being an insertion character it also represents 
the decimal point for -alignment purposes. The insertion character used for 
the actual decimal point is counted in the size of the item. The use of the 
assumed decimal point, represented by the symbol *V* and the actual decimal 
point, represented by the insertion character, in the same PICTURE 
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character-string is disallowed. The result of special insertion editing is 
the appearnace of the insertion character in the item in the same position 
as shown in the character-string. 

Fixed Insertion Editing 

Fixed Insertion Editing. The currency symbol and the editing sign 
control symbols, * + ', , 'CR*, *DB', are the insertion characters. Only 
one currency symbol and only one of the editing sign control symbols can be 
used in a given PICTURE character-string. When the symbols 'CR' or 'DB* are 
used they represent two character positions in determining the size of the 
item and they must represent the rightmost character positions that are 
counted in the size of the item. The symbol ' + ' or . when used r muct he 
either the leftmost or rightmost character position to be counted in the 
size of the item. The currency symbol must be the leftmost character 

Table 3-2 Editing Symbols in PICTURE Character-Strings 


EDITING SYMBOL IN 
PICTURE CHARACTER-STRING 

RESULT 

DATA ITEM 
POSITIVE OR ZERO 

DATA ITEM 
NEGATIVE 

+ 

+ 

- 

- 

space 

- 

CR 

2 spaces 

CR 

DB 

2 spaces 

DB 


Floating Insertion Editing 

The currency symbol and editing sign control symbols * + ' or are the 
floating insertion characters and as such are mutually exclusive in a given 
PICTURE character-string. 

Floating insertion editing is indicated in a PICTURE character-string 
by using a string of at least two of the floating insertion characters. 
This string of floating insertion characters may contain any of the fixed 
insertion symbols or have fixed insertion characters immediately to the 
right of this string. These simple insertion characters are part of the 
floating string. 

The leftmost character of the floating insertion string represents the 
leftmost limit of the floating symbol in the data item. The rightmost 
character of the floating string represents the rightmost limit of the 
floating symbols in the data item. 

The second floating character from the left represents the leftmost 
limit of the numeric data that can be stored in the data item. Non-zero 
numeric data may replace all the characters at or to the right of this 
limit. 




In a PICTURE character-string, there are only two ways of representing 
floating insertion editing. One way is to represent any or all of the 
leading numeric character positions on the left of the decimal point by the 
insertion character. The other way is to represent all of the numeric 
character positions in the PICTURE character-string by the insertion 
character. 

If the insertion characters are only to the left of the decimal point 
in the PICTURE character-string, the result is that a single floating 
insertion character will be placed into the character position immediately 
preceding either the decimal point or the first non-zero digit in the data 
represented by the insertion symbol string, whichever is farther to the left 
in the PICTURE character-string. The character positions preceding the 
insertion character are replaced with spaces. 

If all numeric character positions in the PICTURE character-string are 
represented by the insertion character, the result depends upon the value of 
the data. If the value is zero the entire data item will contain spaces. 
If the value is not zero, the result is the same as when the insertion 
character is only to the left of the decimal point. 

To avoid truncation, the minimum size of the PICTURE character-string 
for the receiving data item must be the number of characters in the sending 
data item, plus the number of non-floating insertion characters being edited 
into the receiving data item, plus one for the floating insertion character. 

Zero Suppression Editing 

The suppression of leading zeros in numeric character positions is 
indicated by the use of the alphabetic character or the character *** 
(asterisk) as suppression symbols in a PICTURE character-string. These 
symbols are mutually exclusive in a given PICTURE character-string. Each 
suppression symbol is counted in determining the size of the item. If 1 Z f 
is used, the replacement character will be the space and if the asterisk is 
used, the replacement character will be '**. 

Zero suppression and replacement is indicated in a PICTURE 
character-string by using a string of one or more of the allowable symbols 
to represent leading numeric character positions which are to be replaced 
when the associated character position in the data contains a zero. Any of 
the simple insertion characters embedded in the string of symbols or to the 
immediate right of this string are part of the string. 

In a PICTURE character-string, there are only two ways of representing 
zero suppression. One way is to represent any or all of the leading numeric 
character positions to the left of the decimal point by suppression symbols. 
The other.way is to represent all of the numeric character positions in the 
PICTURE character-string by suppression symbols. 

If the suppression symbols appear only to the left of the decimal 
point, any leading zero in the data which corresponds to a symbol in the 
string is replaced by the replacement character. Suppression terminates at 
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Che first non-zero digit in the data represented by the suppression symbol 
string or at Che decimal point, whichever is encountered first. 

If all numeric character positions in the PICTURE character-string are 
represented by suppression symbols and the value of the data is not zero, 
the result is the same as if the suppression characters were only to the 
left of the decimal point. If the value is zero and the suppression symbol 
is 1 Z* » the entire data item will be spaces. If Che value is zero and the 
suppression symbol is the data item will be all except for Che 
actual decimal point. 

The symbols 'Z* , and the currency symbol, when used as 
floating replacement characters, are mutually exclusive within a given 
character-string. 

Precedence Rules 
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Table 3-3 shows the order of precedence when using characters as 
symbols in a character-string. An *X' at an intersection indicates that the 
symbol(s) at the top of the column may precede, in a given character-string, 
the symbol(s) at the left of the row. Arguments appearing in braces 
indicate that the symbols are mutually exclusive. The currency symbol is 
indicated by the-symbol 'cs'. 




At least one of the symbols 'A', 'X', 'Z 1 , *9* or # * f , or at least two 
of the symbols •+*, or ’cs' must be present in a PICTURE string. 

Table 3-3. PICTURE Character Precedence Chart* 



Nonfloating 
Insertion Symbols 


Floating 

Insertion Symbols 


Other Symbols 













In Table 3-3, non-floating insertion symbols '+' and floating 
insertion symbols ' Z\ and 'cs', and other symbol 'P' appear 
twice in the PICTURE character precedence chart. The leftmost column and 
uppermost row for each symbol represents its use to the left of the decimal 
point position. The second appearance of symbol in the row and column 
represents its use to the right of the decimal point position. 
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THE REDEFINES CLAUSE 


Function 


The REDEFINES clause allows the same computer storage area to be 
described by different data description entries. 

General Format 


level-number data-name-I; REDEFINES data-name-2 

NOTE: Level-number, data-name-I are shown in the above format to improve 

clarity. Level-number and data-name-I are not part of the 
REDEFINES clause. 

Syntax Rules 

1 • The REDEFINES clause, when specified, must immediately follow 

data-name-I. 

2. The level-numbers of data-name-1 and data-name-2 must be Identical. 

3. This clause must not be used in level 01 entries In the File Section. 

(See General Rule 2 of THE DATA RECORDS CLAUSE in Chapter 5). 

4. This clause must not be used In level 01 entries in the Communication 
Section. 

5. The data description entry for data-name-2 cannot contain *an OCCURS 

clause. Neither the original definition nor the redefinition can 

include an item whose size is variable as defined In the OCCURS clause. 
(See THE OCCURS CLAUSE In Chapter 4), 

6. No entry having a level-number numerically lower than the level-number 
of data-name-2 and data-name-1 may occur between the data description 
entries of data-name-2 and data-name-1. 

General Rules 


1. Redefinition starts at data-name-2 and ends when a level-number less 
than or equal to that of data-name-2 Is encountered. 

2. When the level-number of data-name-1 Is other than 01 # it must specify 
the same number of character positions that the data item referenced by 
data-name-2 contains. It is important to observe that the REDEFINES 
clause specifies the redefinition of a storage area, not of the data 
items occupying the area. 
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Multiple redefinitions of the same character positions are permitted. 
The entries giving the new descriptions of the character positions must 
follow the entries defining the area being redefined, without 
intervening entries that define new character positions. Multiple 
redefinitions of the same character positions must all use the 
data-name of the entry that originally defined the area. 

The entries giving the new description of the character positions must 
not contain any VALUE clauses. 




Multiple level 01 entries subordinate to any given level indicator 
represent implicit redefinitions of the same area. 



THE SIGN CLAUSE 


Function 


The SIGN clause specifies the position and the mode of representation 
of the operational sign when it is necessary to describe these properties 
explicitly. 

General Format 

[ SIGN Iil| TRA IL ING } [separate character] 


Syntax Rules 

1. The SIGN clause may be specified only for a numeric data description 
entry whose PICTURE contains the character 'S', or a group item 
containing at least one such numeric data description entry. 

2. The numeric data description entries to which the SIGN clause applies 
must be described as USAGE IS DISPLAY. 

4 

3. At most one SIGN clause may apply to any given numeric data description 
entry. 

4. If the CODE-SET clause is specified, any signed numeric data 
description entries associated with that file description entry must be 
described with the SIGN IS SEPARATE clause. 

General Rules 


1. The optional SIGN clause, if present, specifies the position and the 
mode of representation of the operational sign for the numeric data 
description entry to which it applies, or for each numeric data 
description entry subordinate to the group to which it applies. The 
SIGN clause applies only to numeric data description entries whose 
PICTURE contains the character 'S 1 ; the , S* indicates the presence of, 
but neither the representation nor, necessarily, the position of the 
operational sign. 

2. A numeric data description entry whose picture contains the character 
*S 1 , but to which no optional SIGN clause applies, has an operational 
sign, but neither the representation nor, necessarily, the position of 
the operational sign is specified by the character 'S'. In this 
(default} case, general rules 3 through 5 do not apply to such signed 
numeric data items. The representation of the default operational sign 
is defined in Chapter 2, Selection of Character Representation and 
Radix. 
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3. If the optional SEPARATE CHARACTER phrase is not present, then: 

a. The operational sign will be presumed to be associated with the 
leading (or, respectively, trailing) digit position of the 
elementary numeric data item. 

b. The letter 'S' in a PICTURE character-string is not counted in 
determining the size of the item (in terms of standard data format 
characters). 

4. If the optional SEPARATE CHARACTER phrase is present, then: 

a. The operational sign will be presumed to be the leading (or, 
respectively, trailing) character position of the elementary 
numeric data item; this character position is not a digit 
position. 

b. The letter 'S' in a PICTURE character-string is counted in 
determining the size of the item (in terms of standard data format 
characters). 

c. The operational signs for positive and negative are the standard 

data format characters and respectively. 

5. Every numeric data description entry whose PICTURE contains the 

character 'S' is a signed numeric data description entry. If a SIGN 
clause applies to such an entry and conversion is necessary for 
purposes of computation or comparisons, conversion takes place 

automatically. 
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THE SYNCHRONIZED CLAUSE 


Function 


The SYNCHRONIZED clause specifies the alignment of an elementary item 
on the natural boundaries of the computer memory. 

General Format 


(SYNCHRONIZED) [ f LEFT )"| 

I SYNC f | 1 RIGHT ?! 

Syntax Rules 

1. This clause may only appear with an elementary item. 

2. SYNC is an abbreviation for SYNCHRONIZED. 

General Rules 

1. The SYNCHRONIZED clause:, ia accepted fot; documentation purposes only. 

2. This clause specifies that the subject data item is to be aligned in 
the computer such that no other data item occupies any of the character 
positions between the leftmost and rightmost natural boundaries 
delimiting this data item. If the number of character positions 
required to store this data item is less than the number of character 
positions between those natural boundaries, the unused character 
positions (or portions thereof) must not be used for any other data 
item. Such unused character positions, however, are included in: 

a. The size of any group item(s) to which the elementary item 

belongs; and 

b. The character positions redefined when this data item is the 

object of a REDEFINES clause. 

3. SYNCHRONIZED not followed by either RIGHT or LEFT specifies that the 

elementary item is to be positioned between natural boundaries in such 
a way as to effect efficient utilization of the elementary data item. 

4. SYNCHRONIZED LEFT specifies that the elementary item is to be 

positioned such that it will begin at the left character position of 
the natural boundary in which the elementary item is placed. 

5. SYNCHRONIZED RIGHT specifies that the elementary item is to be 

positioned such that it will terminate on the right character position 
of the natural boundary in which the elementary item is placed. 

6. Whenever a SYNCHRONIZED item is referenced in the source program, the 

original size of the item, as shown in the PICTURE clause, is used in 
determining any action that depends on size, such as justification, 
truncation or overflow. 
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If the data description of an item contains the SYNCHRONIZED clause and 
an operational sign, the sign of the item appears in the normal 
operational sign position, regardless of whether the item is 
SYNCHRONIZED LEFT or SYNCHRONIZED RIGHT. 

When the SYNCHRONIZED clause is specified in a data description entry 
of a data item that also contains an OCCURS clause, or in a data 
description entry of a data item subordinate to a data description 
entry that contains an OCCURS clause, then: 

a. Each occurrence of the data item is SYNCHRONIZED. 

b. Any implicit FILLER generated for other data items within that 
same table are generated tor each occurrence of those data items. 

This clause is hardware dependent. 
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THE USAGE CLAUSE 


Function 


The USAGE clause specifies the format of a data item in the computer 
storage. 


General Format 


[USAGE IS] 


1 COMPUTATIONAL 
COMP 
DISPLAY 

COMPUTATIONAL-3 


Syntax Rules 

1. The PICTURE character-string of a COMPUTATIONAL or COMPUTATIONAL-3 item 
can contain only '9's, the operational sign character 'S 1 , the implied 
decimal point character *7*, one or more 'P's. (See THE PICTURE CLAUSE 
earlier in this Chapter). 

2. COMP is an abbreviation for COMPUTATIONAL. 


General Rules 


1. The USAGE clause can be written at any level. If the USAGE clause is 
written at group level, it applies to each elementary item in the 
group. The USAGE clause of an elementary item cannot contradict the 
USAGE clause of a group to which the item belongs. 

2. This clause specifies the manner in which a data item is represented in 
the storage of a computer. It does not affect the use of the data 
item, although the specifications for some statements in the Procedure 
Division may restrict the USAGE clause of the operands referred to. 
The USAGE clause may affect the radix or type of character 
representation of the item. 

3* A COMPUTATIONAL or COMPUTATIONAL-3 item is capable of representing a 
value to be used in computations and must be numeric. If a group item 
is described as COMPUTATIONAL(-3), the elementary items in the group 
are COMPUTATIONAL(-3). The group item itself is not C0MPUTATI0NAL(-3) 
and cannot be used in computations. 

4. The USAGE IS DISPLAY clause indicates that the format of the data is a 
standard data format. 

5. If the USAGE clause is not specified for an elementary item, or for any 
group to which the item belongs, the usage is implicitly DISPLAY. 

6. Space requirements for the various USAGE storage options are given 
under Selection of Character Representation and Radix in Chapter 2. 
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THE VALUE CLAUSE 


Function 


The VALUE clause defines the value of constants, the initial value of 
working storage items, the initial value of data items in the Communication 
Section. 

General Format 


VALUE is literal 

Syntax Rules 

1. The VALUE clause cannot be stated for any items whose size is variable. 
(See THE OCCURS CLAUSE in Chapter 4). 

2. A signed numeric literal must have associated with it a signed numeric 
PICTURE character-string. 

3. All numeric literal in a VALUE clause of an item must have a value 
which is within the range of values indicated by the PICTURE clause, 
and must not have a value which would require truncation of nonzero 
digits. Nonnumeric literals in a VALUE clause of an item must not 
exceed the size indicated by the PICTURE clause. 


General Rules 

1. The VALUE clause must not conflict with other clauses in the data 
description of the item or in the data description within the hierarchy 
of the item. The following rules apply: 

a. If the category of the Item Is numeric, all literals in the VALUE 
clause must be numeric. If the literal defines the value of a 
working storage Item, the literal Is aligned in the data item 
according to the standard alignment rules. (See Standard 
Alignment Rules in Chapter 2). 

b. If the category of the item is alphabetic, alphanumeric, 
alphanumeric edited or numeric edited, all literals in the VALUE 
clause must be nonnumeric literals. The literal Is aligned in the 
data item as if the data Item had been described as alphanumeric. 
(See STANDARD ALIGNMENT RULES in Chapter 2). Editing characters 
in the PICTURE clause are included In determining the size of the 
data Item (see THE PICTURE CLAUSE earlier in this Chapter) but 
have, no effect on initialization of the data Item. Therefore, the 
VALUE for an edited Item is presented in an edited form. 

C. Initialization takes place Independent of any BLANK WIEN ZERO or 
JUSTIFIED clause that may be specified. 


mm 

mm 
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Data Description Entries 


Rules governing the use of the VALUE clause differ with the respective 

sections of the Data Division: 

1. The VALUE clause cannot be used In the File Section# 

2. In the Working-Storage Section, the VALUE clause may be used to specify 
the initial value of a data item; in which case the clause causes the 
Item to assume the specified value at the start of the object program. 
If the VALUE clause is not used in an item's description, the initial 
value is undefined. 

3. The VALUE clause cannot be used in the Linkage Section. 

4. The VALUE clause must not be stated in a data description entry that 
contains an OCCURS clause, or in an entry that is subordinate to an 
entry containing an OCCURS clause. (See THE OCCURS CLAUSE in Chapter 
4). 

5. The VALUE clause must not be stated in a data description entry that 
contains a REDEFINES clause, or in an entry that is subordinate to an 
entry containing a REDEFINES clause, 

6. If the VALUE clause is used in an entry at the group level, the literal 
must be a figurative constant or a nonnumeric literal, and the group 
area is initialized without consideration for the individual elementary 
or group items contained within this group. The VALUE clause cannot be 
stated at the subordinate levels within this group. 

7. The VALUE clause must not be written for a group containing items with 
descriptions, including JUSTIFIED, SYNCHRONIZED, or USAGE (other than 
USAGE IS DISPLAY). 
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PROCEDURE DIVISION IN THE NUCLEUS 


CONDITIONAL EXPRESSIONS 

CcndiClonal expressions identify conditions that art! tested to enable 
Che object program to select between alternate paths of control depending 
upon the truth value of the condition. Conditional expressions are 
specified in the IF and PERFORM statements. There are two categories of 
conditions associated with conditional expressions: simple conditions and 
relation conditions. Each may be enclosed within any number of paired 
parentheses, in which case its category is not changed. 

Simple Conditions 

The simple conditions are the relation, class, switch-status, 
conditions. A simple condition has a truth value of 'true' or 'false'. The 
inclusion in parentheses of simple conditions does not change the simple 
truth value. 

Relation Condition 

A relation condition causes a comparison of two operands, each of which 
may be the data item referenced by an identifier, a literal. A relation 
condition has a truth value of 'true' if the relation exists between the 
operands. Comparison of two numeric operands is permitted regardless of the 
formats specified in their respective USAGE clauses. However, for all other 
comparisons the operands must have the same usage. If either of the 
operands is a group item, the nonnumeric comparison rules apply. 


The general format of a relation condition is as follows: 



/ IS 

[NOT] 

GREATER THAN \ 



IS 

[NOT] 

LESS THAN J 


identifier-1> 

) IS 

[NOT] 

EQUAL TO ( 

iidentifier-2 

literal-1 » 

) IS 

[NOT] 

> l 

i literal-2 


l IS 

[NOT] 

< ] 



' IS 

[NOT] 

= / 



NOTE: The required relational characters *<*, *>*, and 1 *' are not 

underlined to avoid confusion with other symbols such as *>_* 
(Greater than or equal to) 


The first operand (identifier-1 or literal-1) is called the subject of 
the condition; the second operand (identifier-2 or literal-2) is called the 
object of the condition. The relation condition must contain at least one 
reference to a variable. 

The relational operator specifies the type of comparison to be made in 
a relation condition. a space must precede and follow each reserved word 
comprising the relational operator. When used, 'NOT' and the next key word 
or relation character are one relational operator that defines the 
comparison to be executed for truth value; e.g., 'NOT EQUAL* is a truth test 
for an 1 unequal*. 






*■3 


*1 




94 



Comparison 'NOT GREATER* is a truth test for an 'equal' or 'less' 
comparison. The meaning of the relational operators is as shown in Table 
3-4. 

Table 3-4. Relational Operators. 



Comparison of Numeric Operands: For operands whose class is numeric a 
comparison is made with respect to the algebraic value of the operands. The 
length of the literal, in terms of number of digits represented, is not 
significant. Zero is considered a unique value regardless of the sign. 

Comparison of these operands is permitted regardless of the manner in which 
their usage is described. Unsigned numeric operands are considered positive 
for purposes of comparison. 

Comparison of Nonnumeric Operands: For nonnumeric operands, or one numeric 
and one nonnuraeric operand, a comparison is made with respect to a specified 
collating sequence of characters (see The OBJECT-COMPUTER Paragraph in this 
Chapter). If one of the operands is specified as numeric, it must be an 
integer data item or an integer literal and: 

1. If the nonnumeric operand is an elementary data item or a nonnumeric 

literal, the numeric operand is treated as though it were moved to an 
elementary alphanumeric data item of the same size as the numeric data 
item (in terms of standard data format characters), and the contents of 
this alphanumeric data item were then compared to the nonnumeric 
operand. (See THE MOVE STATEMENT in this Chapter, and the PICTURE 

Character *P' under the heading Symbols Used earlier in this Chapter). 

2. If the numeric operand is a group item, the numeric operand is treated 

as though it were moved to a group item of the same size as the numeric 
data itenr (in terms of standard data format characters), and the 
contents of this group item were then compared to the nonnumeric 
operand. (See THE MOVE STATEMENT in this Chapter, and the PICTURE 

character 'P* under the Heading Symbols Used earlier in this Chapter). 

3. A non-integer numeric operand cannot be compared to a nonnuraeric 
operand. 
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The size of an operand is Che total number of standard data format 
characters in the operand. Numeric and nonnumeric operands may be compared 
only when their usage is the same. 

There are two cases to consider: 

1. Operands of equal size - If the operands are of equal size, comparison 
effectively proceeds by comparing characters in corresponding character 
positions starting from the high order end and continuing until either 
a pair of unequal characters is encountered or the low order end of the 
operand is reached, whichever comes first. The operands are determined 
to be equal if all pairs of characters compare equally through the last 
pair, when the low order end is reached. 

The first encountered pair of unequal characters is compared to deter¬ 
mine their relative position in the collating sequence. The operand 
that contains the character that is positioned higher in the collating 
sequence is considered to be the greater operand. 

2. Operands of unequal size - If the operands are of unequal size, 
comparison proceeds as though the shorter operand were extended on the 
right by sufficient spaces to make the operands of equal size. 

Class Condition 

The class condition determines whether the operand is numeric, that is, 
consists entirely of the characters 'O', *1*, *2*, * 3 *» ’9', with or 

without the operational sign, or alphabetic, that is, consists entirely of 
the characters 'A’, 'B 1 , 'C* , .*2', space. The general format for the 

class condition is as follows: 

identifier IS [NOT] { ”bETIC } 

The usage of the operand being tested must be described as display. 
When used, 'NOT 1 and the next key word specify one class condition that 
defines the class test to be executed for truth value; e.g. 'NOT NUMERIC* 
is a truth test for determining that an operand is nonnumeric. 

The NUMERIC test cannot be used with an item whose data description 
describes the item as alphabetic or as a group item composed of elementary 
Items whose data description indicates the presence of operational sign(s). 
If the data description of the item being tested does not indicate the 
presence of an operational sign, the item being tested is determined to be 
numeric only if the contents are numeric and an operational sign is not 
present. If the data description of the item does indicate the presence of 
an operational sign, the item being tested is determined to be numeric only 
if the contents are numeric and a valid operational sign is present. Valid 
operational signs for data items described with the SIGN IS SEPARATE clause 
are the standard data format characters, '+* and 
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The ALPHABETIC test cannot be used with an item whose data description 
describes the item as numeric. The item being tested is determined to be 
alphabetic only if the contents consist of any combination of the alphabetic 
characters 'A 1 thru 'Z 1 and the space. 

Switch-Status Condition 

A switch-status condition determines the 'on' or ‘off 1 status of an 
implementor-defined switch. The implementor-name and the 'on' or 'off' 
value associated with the condition must be named in the SPECIAL-NAMES 
paragraph of the Environment Division. The general format for the 
switch-status condition is as follows: 

condition-name 

The result of the test is true if the switch is set to the specified 
position corresponding to the condition-name. 
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COMMON PHRASES AND GENERAL RULES FOR STATEMENT FORMATS 


In the statement descriptions that follow, several phrases appear 
frequently: the ROUNDED phrase, the SI2E ERROR phrase. 

These are described below. A resultant-identifier is that identifier 
associated with a result of an arithmetic operation. 


The Rounded Phrase 


If, after decimal point alignment, the number of places in the fraction 
of the result of an arithmetic operation is greater than the number of 
places provided for the fraction of the resultant-identifier, truncation is 
relative to the size provided for the resultant-identifier. When rounding 
is requested the absolute value of the resultant-identifier is increased by 
one whenever the most significant digit of the the excess is greater than or 
equal to five. 

When the low-order integer positions in a resultant-identifier are 
represented by the character ' P' in the PICTURE for the 
resultant-identifier, rounding or truncation occurs relative to the 
rightmost integer position for which storage is allocated. 


The Size Error Phrase 

If, after decimal point alignment, the absolute value of a result 
exceeds the largest value that can be contained in the associated 
resultant-identifier a size error condition exists. Division by zero always 
causes a size error condition. The size error condition applies only to the 
final results, except in MULTIPLY and DIVIDE statements, in which case the 
size error condition applies to the intermediate results as well. If the 
ROUNDED phrase is specified rounding takes place before checking for size 
error. When such a size error condition occurs, the subsequent action 
depends on whether or not the SIZE ERROR phrase is specified as follows: 


SIZE ERROR Phrase Not Specified 

When a size error condition occurs, the value of those 
resultant-identifier(s) affected is undefined. Values of 
resultant-identifier(s) for which no size error condition occurs are 
unaffected by size errors that occur for other resultant-identifier(s) 
during execution of this operation. 


SIZE ERROR Phrase Specified 

When a size error condition occurs, then the values of 
resultant-identifier(s) affected by the size errors are not alte?*ed. After 
completion of the execution of this operation, the imperative statement in 
the SIZE ERROR phrase is executed. 



Arithmetic Statements 


The arithmetic statements are the ADD, DIVIDE, MULTIPLY, and SUBTRACT 
statements. Common features are as follows: 

1. The data descriptions of the operands need not be the same; any 

necessary conversion and decimal point alignment are supplied 
throughout the calculation. 

2. The maximum size of each operand is 18 decimal digits. The composite 

of operands, which is a hypothetical data item resulting from the 

superimposition of specified operands in a statement aligned on their 
decimal points (See THE ADD STATEMENT, THE DIVIDE STATEMENT, THE 

MULTIPLY STATEMENT and THE SUBTRACT STATEMENT later in this Chapter) 
must not contain more than 18 decimal digits. 


Overlapping Operands 

When a sending and a receiving item in an arithmetic statement or an 
INSPECT, MOVE, SET, statement share a part of their storage areas, the 
result of the execution of such a statement is undefined. 


Incompatible Data 


Except for the class condition (See Class Condition in this Chapter), 
when the contents of a data item are referenced in the Procedure Division 
and the contents of that data item are not compatible with the class 
specified for that data item by its PICTURE clause, then the result of such 
a reference is undefined. If a numeric display field contains one or more 
spaces the spaces are usually treated as if they were zero. This may 
present problems in portability if relied upon. 


CRT Devices 


The CRT is driven directly by the run time system via a buffer. The 
COBOL programmer moves data into and out of this buffer by means of ACCEPT 
and DISPLAY statements. Each ACCEPT or DISPLAY action is relative to the 
start of the CRT buffer unless POSITION is specified. The syntax is limited 
to inputting to or outputting from a single data name. The data name may be 
a group item and several such group items may redefine the same area of 
storage. 

The use of FILLER data items in record descriptions used for input or 
output to a CRT device is subject to special rules. On output, any FILLER 
item in a record results in suppression of output for the character 
positions it defines. On input, any FILLER item suppresses operator keying 
into the character positions it defines. 
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THE ACCEPT STATEMENT 


Function 


The ACCEPT statement causes data keyed at the CRT console to be made 
available to the program in a specified data item 

General Formats 

Format 1 

ACCEPT identifier [ FROM CONSOLE ] 

■fcsoseL 2 

A CCENT data-name-1 |^AT FRPtt CFLl 

Syntax Rule 

Literal-1 must be numeric. 


General Rules 


1. Format 1 is the standard ANSI ACCEPT statement 
2 la the esceaiied ACCEPT format- 

The tw are dtaringuiGhed by their ROM phrase and the default 

assume* FROM CONSOLE- the default can, however, changed by 

sfetUyinjj; WMSOiB IS CRT in the cUuae sc that FROM CKT 

becomes the default,. Fills changed default is not shown in this Syntax 
rthovc, Note- Spedthe AT phrase Inplteu Furmet 2, even if FROM 
CRT la omitted. 


Format 1 

2. The ACCEPT statement reads one line of input data from the system 
console device. This input data replaces the contents of the data item 
named by the identifier. 

3. The line of input is line-edited according to the operating system 
rules for line-editing (see Operating Systems User Guide). The line is 
terminated by pressing the CR (Carriage Return) key or by exceeding 120 
characters in length. 

4. If the input line is of the same size as the receiving data item, the 
transferred data is stored in the receiving data item. 

5. If the input line is not of the same size as the receiving data item, 
then: 

a. If the size of the receiving data item exceeds the size of the 
input line, the transferred data is stored aligned to the left in 
the receiving data item and the data item is filled with trailing 
spaces. 
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b. If the size of the transferred data exceeds 120 bytes, only the 

first 120 characters of the input line are stored in the receiving 
data item. The remaining characters of the input line which do 

not fit into the receiving data item are ignored. 
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THE ADD STATEMENT 
Function 


The ADD statement causes two or more numeric operands to be summed and 
the result to be stored. 

General Format 


Format 1 


ATkr . (identifier-1) I", (identifier-2) "I 
^ ?literal-1 f L ! literal-2 \\ 


[ , identifier-n [ ROUNDED ] ] .. 


.. TO identifier-m [ ROUNDED ] 

[; ON SIZE ERROR imperative-statement] 
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Format 2 


iidentifier-1) 

, tidentifier-2 » 

identifier-3>] 

Qiteral-1 i 

fliteral-2 V 

|_ fliteral-3 vj 


GIVING identifier-m [ ROUNDED ] [, identifier-n [ ROUNDED ]] ... 
[; ON SIZE ERROR imperative-statement] 


Syntax Rules 

1. In Formats 1 and 2, each identifier must refer to an elementary numeric 
item, except that in Format 2 each identifier following the word GIVING 
must refer to either an elementary numeric item or an elementary 
numeric edited item. 

2. Each literal must be a numeric literal. 

3. The composite of operands must not contain more than 18 digits (see The 
Arithmetic Statements in this Chapter). 

a. In Format 1 the composite of operands is determined by using all 
of the operands in a given statement. 

b. In Format 2 the composite of operands is determined by using all 
of the operands in a given statement excluding the data items that 
follow the word GIVING. 


General Rules 


1. See The Rounded Phrase , The Size Error Phrase , The Arithmetic 

Statements , Overlapping Operands and Incompatible Data in this Chapter. 

2. If Format 1 is used, the values of the operands preceding the word TO 

are added together, then the sum is added to the current value of 

identifier-m storing the result immediately into identifier-m. 

3. If Format 2 is used, the value of the operands preceding the word 

GIVING are added together, then the sum is stored as the new value of 
identifier-m, the resultant identifiers. 

4. The compiler ensures that enough places are carried so as not to lose 
any significant digits during execution. 
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THE ALTER STATEMENT 


p!55R| 


Function 


The ALTER statement modifies a predetermined sequence of operations. 


General Format 


ALTER procedure-name-1 TO f PROCEED TO J procedure-name-2 


Syntax Rnl p.q 


1. Procedure-name-1 is the name of a paragraph that contains a single 
sentence consisting of a GO TO statement without the DEPENDING phrase. 

2. Procedure-name-2 is the name of a paragraph or section in the Procedure 
Division. 


General Rule 


Execution of the ALTER statement modifies the GO TO statement in the 
paragraph named procedure-name-1, so that subsequent executions of the 
modified GO TO statements cause transfer of control to procedure-name-2. 
Modified GO TO statements in independent segments may, under some 
circumstances, be returned to their initial states (see Independent Segments 
in Chapter 8). 




THE DISPLAY STATEMENT 


Function 


The DISPLAY statement causes data to be transferred from specified data 
items to the CRT screen. 


General Formats 


Format 1 
DISPLAY 

tidentif ier-li 
fliteral-1 i 

tidentifier-2)l 
|_M literal-2 tj '** 

[UPON CONSOLE] 

Furpat 2 




DJ5FUW 

<, da L-S- I'lJmff— I i 
^literal-3 l 


/CRT \ 

| tFl-OMUKR { 


Syntax Rules 

Format 1 

1. Each literal may be any figurative constant, except ALL. 

2. If the literal is numeric, it must be an unsigned integer. 

1. IL t« nil —3 mts f be alp hJimmie ri c . Le te rial -4 mua t be niite n c_ 

4. dflta-naojfi-1 tay refer tu a record, ^Frup. or e iiirnitf tary Lrea, but It 
=uuit net be subaccipted, 

General fcelea 

1- Fufipit L I* til a eiturtdard AJifll DISPLAY 

Ferine t 2 le t be ^tended 131 SPLAT foniiit. 

'fh* twu ftn™ts -irr- di Ptinituiitie.d by their UPON phrases and the default 
aasDocH UPON ftJHSOLEn TH* defile cpti f h-Hfcwvfrf* b? by 

dpsctiylD^ CONSOLE Is CM La the SPECIAL-HAKES clause ao chat UPON ££T 
he^Ltata tbt delaulc. TKLif eSkitigeti default U act ain>wo ta the ayutar 
aUgVE. Hotel the AT phrast Implies ParmaL 2. even if the 

DPQG phrase Id eraICf*ri H 

Format 1 

2. The DISPLAY statement causes the contents of each operand to be 

transferred to the CRT in the order listed as one line of output data. 

3. The size of the data transfer can be up to 132 bytes. 

4. If a figurative constant is specified as one of the operands, only a 

single occurrence of the figurative constant is displayed. 
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5. If the CRT is capable of displaying data of the same size as the data 
item being output, the data item is transferred, 

6. If the CRT is not capable of displaying data of the same size as the 
data item being transferred, one of the following applies. 

(a) If the size of the data item being displayed exceeds the size of 
the data that the CRT is capable of receiving in a single 
transfer, the data beginning with the leftmost character is stored 
aligned to the left in the receiving CRT. 

(b) If the size of the data item that the CRT is capable, of receiving 
exceeds tne size ot the data being transferred, the transferred 
data is stored aligned to the left in the receiving CRT. 

7. When a DISPLAY statement contains more than one operand, the size of 
the sending item is the sum of the sizes associated with the operands, 
and the values of the operands are transferred in the sequence in which 
the operands are encountered. 

Format 2 

■ T \tU IJ1JIPLAY n L iI* need Ltt Q^t, 1 nhiM H' ft* LiltT \n pi * 

pus I Li&nft LJlfl, 

i£ talefcn as * definition at th* c.r.tamt atu .1 Into yHlEh dais 
Itesa that njnrEspr.n4 to apjoir on fhci n ire anved- FIU.Fd fields 

c ij r r ctfrpu Uii £i> .il'ciiJh' Oj 1 tljfc 13-L I - C- e-Li into Ttfliclii inN l.fi znVr.d . 

^•i ~."i ^'.ntnvy OJitri i (ifau wins ip ifa -1 may be e, Jtitiw ■ 

LiuroeriCn nnmierLc nr . 

Li. AT danr litflj-ii-i ant *-.eji Usz paeiturm on the scmGB nf the 

I i;f oi Ljki; lidjtA, HIlUlT Zum Dldfft ctfeT to -n J cC 
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■MID to the q&XlffPZF ;t|4iDh^r ut Ilcusq ■ u t he U!5k.T adveei;.. Th^ 
siHttificsifl- in tnkrS ft# z. f j«d#H.iL"ff in th- i uri- lo the 

msjcliuLiu, ul qtiaract.irs per i;re on ~h+ mu r ur'iT-n 

12. is ta-name-1 retpL tii a tetuid* ftraup or ■ lr_-.n£ ,r r < l-- hiii >r mqy 

bw aUMcrlpLei, RiH[Li 1 Titi- in±\ -m Ubai h ill riliLd'i til ■ Eir^i 

di’'script toil <?i' Lbn ditjf 1* u^ied -jad tuhietpi en L uedd: ipilustU ait 
i I ini r.j-b. Ul.l -m3 uer-Leii DLCUaS Jk±> dlfiO b* liefed rflcll the ii/fCt rtl4l 

m- rwMi■ nL i■ I i in r-npandun ipln rhu hlU nurabi-r <jL ILt-kl i■. 

i>L’n h LTV ■•i.vJ ni»rc dthffifi i tir?n iui tli lit; fiutun’itltrdE.Ly c- ■_ Lnii List teflUn 
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IIU^PS ui car /nee L.l«- Lllb dOliUL iJp s f iCijLg I *kih .\&> . 
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THE DIVIDE STATEMENT 


Function 


The DIVIDE statement divides one numeric data item into others and sets 
the values of data items equal to the quotient. 

General Format 


Format 1 


DIVIDE !iiteral-i r-1 i INT0 identifier-2 [ ROUNDED ] 

[» identifier-3 [ ROUNDED ]] ... [;0N SIZE ERROR imperative-statement] 

Format 2 


DIVIDE 


i identifier-1 
fliteral-1 


(identifier-2 > 
fliteral-2 » 


GIVING identifier-3 [ ROUNDED ] [.identifier-* [ ROUNDED ] ] ... 
[;0N SIZE ERROR imperative-statement] 


Format 3 


DIVIDE 


identifier-1) lidentifier-2) 

literal-1 > — fliteral-2 » 


GIVING identifier-3 [ROUNDED ] [ , identifier-4 [ROUNDED ] ] ... 
[;ON SIZE ERROR imperative-statement] 


Syntax Rules 

1* Each identifier must refer to an elementary numeric item, except that 
any identifier associated with the GIVING phrase must refer to either 
an elementary numeric item or an elementary numeric edited item. 

2. Each literal must be a numeric literal. 

General Rules 

1. See The Rounded Phrase , The Size Error Phrase , The Arithmetic 
Statements , Overlapping Operands and Incompatible Data in this Chapter 
for a description of these functions. 


108 




1^1 


2. When Format 1 is used, the value of identifier-1 or 

divided into the value of identifier-2, The value of 
(identifier-2) is replaced by this quotient. 

3. When Format 2 is used, the value of identifier-1 or 

divided into identifier-2 or literal-2 and the result 
identifier-3. 

4. When Format 3 is used, the value of identifier-1 or 

divided by the value of identifier-2 or literal-2 and 
stored in identifier-3. 


literal-1 is 
rhc dividend 


literal-1 is 
is stored in 


literal-! is 
the result is 



THE ENTER STATEMENT 


i»«j 


Function 

The ENTER statement provides a means of allowing the use of more than 
one language in the same program. 


General Format 

ENTER language-name [routine-name] 


Syntax Rule 

I. I|i±4 evtjrjB 

General Rule 

1. Access to other languages can be achieved by means of CALL. 


1 

n 

n 


maq 

j 

"1 
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THE EXIT STATEMENT 


Function 

The EXIT statement provides a common end point for 3 series of 
procedures. 

General Format 

EXIT 

Syntax Rules 

1, The EXIT statement must appear in a sentence by itself. 

2. The EXIT sentence must be the only sentence in the paragraph. 

General Rule 


An EXIT statement serves only to enable the user to assign a 
procedure-name to a given point in a program. Such an EXIT statement 
has no other effe'ct on the compilation or execution of the program. 



THE GO TO STATEMENT 


Function 

The GO TO statement causes control to be transferred from one part of 
the Procedure Division to another. 

General Format 

Format 1 

svt to 11 

ov J L t IVUvUULC llULUC J. J 

Fonnat-2 


GO TO procedure-narae-1 [, procedure-name-2) ... , procedure-name-n 

DEPENDING ON identifier 


Syntax Rules 

1. Identifier is the name of a numeric elementary item described without 
any positions to the right of the assumed decimal point. 

2. When a paragraph is referenced by an ALTER statement, that paragraph 
can consist only of a paragraph header followed by a Format l GO TO 
statement. 

3. If a GO TO statement represented by Format 1 appears in a consecutive 
sequence of imperative statements within a sentence, it appears as the 
last statement in that sequence. 

General Rules 


1. When a GO TO statement, represented by Format l is executed, control is 
transferred to procedure-name-1 or to another procedure-name if the GO 
TO statement has been modified by an ALTER statement. 

2. When a GO TO statement represented by Format 2 is executed, control is 

transferred to procedure-name-1, procedure-name-2, etc., depending on 
the value of the identifier being l, 2, ..., n. If the value of the 
identifier is anything other than the positive or unsigned integers 1, 
2, ...» n, then no transfer occurs and control passes to the next 

statement in the normal sequence for execution. 



THE IF STATEMENT 




Function 


The IF statement causes a condition to be evaluated (see CONDITIONAL 
EXPRESSIONS in this Chapter). The subsequent action of the object program 
depends on whether the value of the condition is true or false. 




General Format 


IF condition; 


[THEN] | 


statement-1 ) 
NEXT SENTENCE | 


; ELSE stateraent-2 | 
; ELSE NEXT SENTENCE } 




Syntax Rules 

1. Statement-1 and statement-2 represent either an imperative statement or 
a conditional statement, and either may be followed by a conditional 
statement. 

2. The ELSE NEXT SENTENCE phrase may be omitted if it immediately precedes 
the terminal period of the sentence. 


General Rules 









l. When an IF statement is executed, the following transfers of control 

occur: 

a. If the condition is true, statement-1 is executed if specified. If 
stateraent-1 contains a procedure branching or conditional 
statement, control is explicitly transferred in accordance with 
the rules of that statement. If statement-1 does not contain a 
procedure branching or conditional statement, the ELSE phrase, if 
specified, is ignored and control passes to the next executable 
sentence. 

b. If the condition is true and the NEXT SENTENCE phrase is specified 
instead of statement-1, the ELSE phrase, if specified, is ignored 
and control passes to the next executable sentence. 

c. If the condition is false, statement-l or its surrogate NEXT 
SENTENCE is ignored, and statement-2, if specified, is executed. 
If stateraent-2 contains a procedure branching or conditional 
statement, control is explicitly transferred in accordance with 
the rules of that statement. If stateraent-2 does not contain a 
procedure branching or conditional statement, control passes to 
the next executable sentence. If the ELSE statemer.t-2 phrase is 
not specified, statement-1 is ignored and control passes to the 
next executable sentence. 


d. If the condition is false, and the ELSE NEXT SENTENCE phrase is 
specified, statement-1 is ignored, if specified, and control 
passes to the next executable sentence. 

2. Statement-1 and/or statement-2 may contain an IF statement. In this 
case the IF statement is said to be nested. 

IF statements within IF statements may be considered as paired IF and 
ELSE combinations, proceeding from left to right. Thus, any ELSE 
encountered is considered to apply to the immediately preceding IF that has 
not been already paired with an ELSE. 
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THE INSPECT STATEMENT 


Function 


The INSPECT statement provides the ability to tally (Format 1), replace 
(Format 2), or tally and replace (Format 3) occurrences of single characters 
in a data item. 

General Format 


Format 1 

INSPECT identifier-1 TALLYING 


(ALL 1 

FOR , \ LEADING [) 

( characters) 


, identifier-2 FOR , \ LEADING 

CHARACTERS ) 

[{If} ffiSET 7 !] 

Format 2 

INSPECT identifier-1 REPLACING 


identifier-3j 
literal-1 > 


CHARACTERS lut«a“r' 6 i 


| LEADING j , 

FIRST" < » 


BY 


lidentifier-6> 
fliteral-4 » 


[{ 


BEFORE \ 
AFTER / 


INITIAL 


(identifier 
f literal' 


r’t] 


Format 3 

INSPECT identifier-1 TALLYING 


identifier-2 FOR \ LEADING hf dentlfX * r 3 | l INITIAL \ ^entif ier-4 H 

- • "MARArT FRSi I ^ eral ~^ Lt AFTER / (literal-2 


REPLACING 


CHARACTERS BY | ldentlfler 6 

H all 
leading 
FIRST 


literal-4 S 

identifier-5J Udentifier-6; 


(literal-3 


i M } 


literal-4 


[{SSf}— ffiESH] 







Syntax Rules 

All Formats 

1. Identifier-1 must reference either a group item or any category of 
elementary item, described (either implicitly or explicitly) as usage 
is DISPLAY. 

2. Identifier-3 ... identifier-n must reference either an elementary 

alphabetic, alphanumeric or numeric item described (either implicitly 
or explicitly) as usage is DISPLAY. 

3. Each literal must be nonnumeric and may be any figurative constant, 
except ALL. 

4. In Level 1, literal-1, literal-2, literal-3, literal-4, and literal-5, 

and the data items referenced by identifier-3, identifier-4, 

identifier-5, identifier-6, and identifier-7 must be one character in 
length. 

Formats 1 and 3 Only 

5. Identifier-2 must reference an elementary numeric data item. 

6. If either literal-1 or literal-2 is a figurative constant, the 

figurative constant refers to an implicit one character data item. 

Formats 2 and 3 Only 

7. The size of the data referenced by literal-4 or identifier-6 must be 
equal to the size of the data referenced by literal-3 or identifier-5. 
When a figurative constant is used as literal-4, the size of the 
figurative constant is equal to the size of literal-3 or the size of 
the data item referenced by identifier-5. 

8. When the CHARACTERS phrase is used, literal-4, literal-5, or the size 
of the data item referenced by identifier-6, identifier-7 must be one 
character in length. 

9. When a figurative constant is used as literal-3, the data referenced by 
literal-4 or identifier-6 must be one character in length. 

General Rules 


All Formats 

1, Inspection (which includes the comparison cycle, the establishment of 
boundaries for the BEFORE or AFTER phrase, and the mechanism for 
tallying and/or replacing) begins at the leftmost character position of 
the data item referenced by identifier-1, regardless of its class, and 
proceeds from left to right to the rightmost character position as 
described in general rules 4 through 6. 




I 











2. For use in the INSPECT statement, the contents of the data item 
referenced by identifier-1» identifier-3, identifier-4, identifier-5, 
identifier-6 or identifier-7 will be treated as follows: 

a. If any of identifier-1, identifier-3, identifier-4, idencifier-5, 
identifier-6 or identifier-7 are described as alphanumeric, the 
INSPECT statement treats the contents of each such identifier as a 
character-string. 

b. If any of identifier-1, identifier-3, identifier-4, identifier-5, 
identifier-6 or identifier-7 are described as alphanumeric edited, 
numeric edited or unsigned numeric, the data item is inspected as 
though it had been redefined as alphanumeric (see general rule 2a) 
and the INSPECT statement had been written to reference the 
redefined data item. 

c. If any of the identifier-1, identifier-3, identifier-4, 
identifier-5, identifier-6 or identifier-7 are described as signed 
numeric, the data item is inspected as though it had been moved to 
an unsigned numeric data item of the same length and then the 
rules in general rule 2b had been applied. (See THE MOVE STATEMENT 
later in this Chapter). 

3. In general rules ,4 through 11 all references to literal-1, literal-2, 
literal-3, literal-4, and literal-5 apply equally to the contents of 
the data item referenced by identifier-3, identifier-4, identifier-5, 
identifier-6, and identifier-7, respectively. 

4. During inspection of the contents of the data item referenced by 

identifier-1, each properly matched occurrence of literal-1 is tallied 
(Formats 1 and 3) and/or each properly matched occurrence of literal-3 
is replaced by literal-4 (Formats 2 and 3). Data items to be 

referenced by the INSPECT verb should be placed such that they lie 

within the first 10,000 bytes of intermediate code. 

5. The comparison operation to determine the occurrences of literal-1 to 
be tallied and/or occurrences of literal-3 to be replaced, occurs as 
follows: 

a. The operands of the TALLYING and REPLACING phrases are considered 

in the order they are specified in the INSPECT statement from left 
to right. The first literal-1, literal-3 is compared to an equal 
number of contiguous characters, starting with the leftmost 

character position in the data item referenced by identifier-1. 
Literal-1, literal-3 and that portion of the contents of the data 
item referenced by identifier-1 match if, and only if, they are 
equal, character for character. 

b. If no match occurs ♦ in the comparison of the first literal-1, 
literal-3, the comparison is repeated with each successive 
literal-1, literal-3, if any, until either a match is found or 
there Is no next successive literal-1, literal-3. When there is 
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no next successive literal-1, literal-3, the character position in 
the data item referenced by identifier-1 immediately to the right 
of the leftmost character position considered in the last 
comparison cycle is considered as the leftmost character position, 
and the comparison cycle begins again with the first literal-1, 
literal-3. 

c. Whenever a match occurs, tallying and/or replacing takes place as 
described in general rules 8 through 10. The character position 
in the data item referenced by identifier-1 immediately to the 
right of the rightmost character position that participated in the 
match is now considered to be the leftmost character position of 
the data item referenced by identifier-1, and the comparison cycle 
starts again with the first literal-1, literal-3. 

d. The comparison operation continues until the rightmost character 
position of the data item referenced by identifier-1 has 
participated in a match or has been considered as the leftmost 
character position. When this occurs, inspection is terminated. 

e. If the CHARACTERS phrase is specified, an implied one character 
operand participates in the cycle described in paragraphs 5a 
through 5d above, except that no comparison to the contents of the 
data item referenced by identifier-1 takes place. This implied 
character is considered always to match the leftmost character of 
the contents of the data item referenced by identifier-1 
participating in the current comparison cycle. 

The comparison operation defined in general rule 5 is affected by the 

BEFORE and AFTER phrases as follows: 

a. If the BEFORE or AFTER phrase is not specified, literal-1, 
literal-3 or the implied operand of the CHARACTERS phrase 
participates in the comparison operation as described in general 
rule 5. 

b. If the BEFORE phrase is specified, the associated literal-1, 

literal-3 or the implied operand of the CHARACTERS phrase 
participates only in those comparison cycles which involve that 
portion of the contents of the data item referenced by 
identifier-1 from its leftmost character position up to, but not 
Including, the first occurrence of literal-2, literal-5 within the 
contents of the data item referenced by identifier-1. The 

position of this first occurrence is determined before the first 
cycle of the comparison operation described in general rule 5 is 
begun. If, on any comparison cycle, literal-1, literal-3 or the 
implied operand of the CHARACTERS phrase is not eligible to 
participate, it is considered not to match the contents of the 
data item referenced by identifier-1. If there is no occurrence 
of literal-2 literal-5 within the contents of the data item 



referenced by identifier-1, its associated literal-1, literal-3, 
or the implied operand of the CHARACTERS phrase participates in 
the comparison operation as though the BEFORE phrase had not been 
specified. 

c. If the AFTER phrase is specified, the associated literal-1, 
literal-3 or the implied operand of the CHARACTERS phrase may 
participate only in those comparison cycles which involve that 
portion of the contents of the data item referenced by 
identifier-1 from the character position immediately to the right 
of the rightmost character position of the first occurrence of 
literal-2, literal-5 within the contents of the data item 
referenced by identifier-1 and the rightmost character position 
of the data item referenced by identifier-1, The position of this 
first occurrence is determined before the first cycle of the 
comparison operation described in general rule 5 is begun. If, on 
any comparison cycle, literal-1, literal-3 or the implied operand 
of the CHARACTERS phrase is not eligible to participate, it is 
considered not to match the contents of the data item referenced 
by identifier-1. If there is no occurrence of literal-2, 
literal-5 within the contents of the data item referenced by 
identifier-1, its associated literal-1, literal-3, or the implied 
operand of the CHARACTERS phrase is never eligible to participate 
in the comparison operation. 


Format 1 

7. The contents of the data item referenced by identifier-2 are not 

initialized by the execution of the INSPECT statement, 

8, The rules for tallying are as follows: 

a. If the ALL phrase is specified, the contents of the data item 

referenced by identifier-2 is incremented by one for each 

occurrence of literal-1 matched within the contents of the data 
item referenced by identifier-1. 

b. If the LEADING phrase is specified, the contents of the data item 

referenced by identifier-2 are incremented by one for each 

contiguous occurrence of literal-1 matched within the contents of 
the data item referenced by identifier-1, provided that the 

leftmost such occurrence is at the point where comparison began in 
the first comparison cycle in which literal-1 was eligible to 
participate. 

C. If the CHARACTERS phrase is specified, the contents of the data 
item referenced by identifier-2 are incremented by one for each 
character matched, in the sense of general rule 5e, within the 
contents of the data item referenced by identifier-1. 



9. The required words ALL, LEADING, and FIRST are adjectives. 

10. The rules for replacement are as follows: 

a. When the CHARACTERS phrase is specified, each character matched 
in the sense of general rule 5e in the contents of the data item 
referenced by identifier-l is replaced by literal-4. 

b. When the adjective ALL is specified, each occurrence of literal-3 

matched in the contents of the data item referenced by 

identifier-1 is replaced by literal-4. 

C. When the adjuective LEADING is specified, each contiguous 

occurrence of literal-3 matched in the contents of the data item 
referenced by identifier-1 is replaced by literal-4, provided that 
the leftmost occurrence is at uhe point where comparison began in 
the first comparison cycle in which literal-3 was eligible to 

participate. 

d. When the adjective FIRST is specified, the leftmost occurrence of 
literal-3 matched within the contents of the data item referenced 
by identifier-1 is replaced by literal-4. 


Format 3 

11. A Format 3 INSPECT statement is interpreted and executed as though two 
successive INSPECT statements specifying the same identifier-1 had been 
written with one statement being a Format 1 statement with TALLYING 
phrases Identical to those specified in the Format 3 statement, and the 
other statement being a Format 2 statement with REPLACING phrases 
identical to those specified in the Format 3 statement. The general 
rules given for matching and counting apply to the Format 1 statement 
and the general rules given for matching and replacing apply to the 
Format 2 statement. 

EXAMPLES 

Four examples of the use of the INSPECT statement follow: 

INSPECT word TALLYING count FOR ALL "L", REPLACING LEADING "A m BY "E" AFTER 
INITIAL "L". 

Where word = CALLAR, count = 2, word = CALLAR. 

Where word = SALAMI, count ® 1, word = SALEMI. 

Where word = LATTER, count " 1, word = LETTER. 
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INSPECT word REPLACING ALL "A" RY "G" BEFORE INITIAL "X". 

Where word = ARXAX, word = GRXAX. 

Where word = HANDAX, word = HGNDGX. 

INSPECT word TALLYING count FOR CHARACTERS AFTER INITIAL "J" REPLACING ALL 
"A" BY "B" 

Where word = ADJECTIVE, count = 6, word = BDJECTIVE. 

Where word = JACK, count = 3, word = JBCK. 

Where word = JUJMAB, count = 5, word = JUJMBB. 

INSPECT word REPLACING CHARACTERS BY M B" BEFORE INITIAL "A", 

word before: 12 XZaBCD 
word after: BBBBBABCD 



THE MOVE STATEMENT 


Function 

The MOVE statement transfers data, in accordance with the rules of 
editing, to one or more data areas. 


General Format 


Format 1 


MOVE 


jidentifier-1 
' literal 


TO identifier-2 


[, identifier-3] ... 


Syntax Rules 

1. Identifier-1 and literal represent the sending area; identifier-2, 
identifier-3, ...» represent the receiving area. 

2. An index data item cannot appear as an operand of a MOVE statement. 
(See THE USAGE CLAUSE in this Chapter). 


General Rules 


1. The data designated by the literal or identifier-1 is moved first to 
identifier-2, then to identifier-3, ... • The rules referring to 

identifier-2 also apply to the other receiving areas. Any subscripting 
or indexing associated with identifier-2, ...» is evaluated immediately 
before the data is moved to the respective data item. 

Any subscripting or indexing associated with identifier-1 is evaluated 
only once, immediately before data is moved to the first of the 
receiving operands. The result of the statement: 

MOVE a (b) TO b, c (b) 

is equivalent to: 

MOVE a (b) TO temp 
MOVE temp TO b 
MOVE temp TO C (b) 

where ’temp 1 is an intermediate result item provided by the 
implementor. 

See Incompatible Data in this Chapter. 




Any MOVE in which the sending and receiving items are both elementary 
items is an elementary move. Every elementary item belongs to one of 
the following categories: numeric, alphabetic, alphanumeric, numeric 
edited, alphanumeric edited. These categories are described in the 
PICTURE clause. Numeric literals belong to the category numeric, and 
nonnumeric literals belongs to the category alphanumeric. The 
figurative constant ZERO belongs to the category numeric. The 
figurative constant SPACE belongs to the category alphabetic. All 
other figurative constants belong to the category alphanumeric. 

The following rules apply to an elementary move between these 
categories: 

a. The figurative constant SPACE, alphanumeric edited, or alphabetic 
data item must not be moved to a numeric or numeric edited data 
item. 

b. A numeric literal, the figurative constant ZERO, a numeric data 
item or a numeric edited data item must not be moved to an 
alphabetic data item. 

c. A non-integer numeric literal or a non-integer numeric data item 
must not be moved to an alphanumeric or alphanumeric edited data 
item. 

d. A mnve from a numeric educed field to a zmaerlc field will work 
provided: 

1, the aeurce field is not blank 

li- tho snucte field does nut contain nnn-jctoted editing 
eliaraet^rr. l.s. i J , S or V 

III. is not used as an edited character, 

e. All other elementary moves are legal and are performed according 
to the rules given in general rule 4. 

Any necessary conversion of data from one form of internal 
representation to another takes place during legal elementary moves, 
along with any editing specified for the receiving data item: 

a. When an alphanumeric edited or alphanumeric item is a receiving 
item, alignment and any necessary space filling takes place as 
defined under STANDARD ALIGNMENT RULES in this Chapter. If the 
size of the sending item is greater than the size of the receiving 
item, the excess characters are truncated on the right after the 
receiving item is filled. If the sending item is described as 
being signed numeric, the operational sign will not be moved; if 
the operational sign occupies a separate character position (see 
THE SIGN CLAUSE in this Chapter), that character will not be moved 



and the size of the sending item will be considered to be one less 
than its actual size (in terms of standard data format 
characters). 

b. When a numeric or numeric edited item is the receiving item, 
alignment by decimal point and any necessary zero-filling takes 
place as defined under the STANDARD ALIGNMENT RULES in Chapter 2, 
except where zeroes are replaced because of editing requirements. 
When a signed numeric item is the receiving item, the sign of the 
sending item is placed in the receiving item. (See THE 
SIGN CLAUSE in this Chapter). Conversion of the representation of 
the sign takes place as neces-sary. If the sending item is 
unsigned, a positive sign is generated for the receiving item. 

When an unsigned numeric item is the receiving item, the absolute 
value of the sending item is moved and no operational sign is 
generated for the receiving item. 

When a data item described as alphanumeric is the sending item, 
data is moved as if the sending item were described as an unsigned 
numeric integer. 

C. When a receiving field is described as alphabetic, justification 
and any necessary space-filling takes place as defined under the 
STANDARD ALIGNMENT RULES in Chapter 2. If the size of the sending 
item is greater than the size of the receiving item, the excess 
characters are truncated on the right after the receiving item is 
filled. 

4. Any move that is not an elementary move is treated exactly as if it 
were an alphanumeric to alphanumeric elementary move, except that there 
is no conversion of data from one form of internal representation to 
another. In such a move, the receiving area will be filled without 
consideration for the individual elementary or group items contained 
within either the sending or receiving area. 

5. Data in Table 3-6 summarizes the legality of the various types of MOVE 
statements. The general rule reference indicates the rule that 
prohibits the move or the behavior of a legal move. 
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Table 3-6. MOVE Statement Data Categories. 


Category of Sending 
Data Item 

Category of Receiving Data Item^ 



Alphabetic 

Alphanumeric 

Edited 

Alphanumeric 

Numeric 

Integer 

Numeric 

Non-Integer 

Numeric 

Edited 

ALPHABETIC 

Yes/3c 

Yes/3a 

No/2a 

No/ 2 a 

ALPHANUMERIC 

Yes/3c 

Yes/3a 

Yes/3b 

Yes/3b 

ALPHANUMERIC EDITED 

Yes/3c 

Yes/3a 

No/ 2a 

No/ 2a 

in „ rnT/ , INTEGER 
NUMERIC N0N _ INXEGER 


Yes/3a 

Yes/3b 

Yes/3b 


No/2c 

Yes/3b 

Yes/3b 

NUMERIC EDITED 

No/2b 

Yes/3a 


No/2a 


The relevant rule number Is quoted in these columns 


THE MULTIPLY STATEMENT 
Function 


The MULTIPLY statement causes numeric data items to be multiplied and 
sets the values of data items equal to the results. 


General Format 
Format 1 

MULTIPLY Jiiteral-l 17 ”^ — identifier “ 2 [ ROUNDED ] 

identifier-3 [ ROUNDED ]J ... [; ON SIZE ERROR imperative-statement] 
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Format 2 


MULTIPLY 


(identifier-1> 
‘literal-1 » 


BY 


(identifier-2» 
'literal-2 > 


GIVING identifier-3 [ROUNDED] 


identifier-4 


[ ROUNDED ] 


[;ON SIZE ERROR imperative-statement] 


Syntax Rules 

1. Each identifier must refer to a numeric elementary item, except that in 
Format 2 each identifier following the word GIVING must refer to either 
an elementary numeric item or an elementary numeric edited item. 

2. Each literal must be a numeric literal. 


General Rules 


1. See The Rounded Phrase, The Size Error Phrase , The Arithmetic 

Statements , Overlapping Operands and Incompatible Data in this Chapter. 

2* When Format 1 is used, the value of identifier-1 or literal-1 is 

multiplied by the value of identifier-2* The value of the multiplier 
(identifier-2) is replaced by this product; similarly for identifier-1 
or literal-1 and identifier-3, etc. 


3. 


When Format 2 is used, the value of identifier-1 or literal-1 
multiplied by identifier-2 or literal-2 and the result is stored 
identifier-3, identifier-4, etc. 


is 

in 
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THE PERFORM STATEMENT 


Function 


The PERFORM statement Is used to transfer control explicitly to one or 
more procedures and to return control implicitly whenever execution of the 
specified procedure is complete. 

General Format 


Format 1 

PERFORM procedure-name-1 


! THROUGH 


{ procedure-name-2 


Format 2 


PERFORM 


,It THROUGH) „ „ identifier-1) 

procedure-name-1 j Yhru -( procedure-name-2 } lnte ger-l ( 


-1) TIMES 


Format 3 


PERFORM 


( THROUGH "1 

procedure-name-1 j -j procedure-name-2 I UNTIL condition-1 


Syntax Rules 

1. Each identifier represents a numeric elementary item described in the 
Data Division. In Format 2, identifier-1 must be described as a 
numeric integer. 

2* The words THRU and THROUGH are equivalent. 

3. Where procedure-name-1 and procedure-naine-2 are both specified and 
either is the name of a procedure in the declarative section of the 
program then both must be procedure-names in the same declarative 
section. 

General Rules 

1. When the PERFORM statement is executed, control is transferred to the 
first statement of the procedure named procedure-name-1 (except as 
indicated in general rules 4b, 4c, and 4d) . This transfer of control 
occurs only once for each execution of a PERFORM statement. For those 
cases where a transfer of control to the named procedure does take 
place, an implicit transfer of control to the next executable statement 
following the PERFORM statement is established as follows: 

a. If procedure-name-I is a paragraph-name and procedure-name-2 is 
not specified, then the return is after the last statement of 
procedure-name-1. 
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b. If procedure-name-1 is a section-name and procedure-name-2 is not 
specifled, then the return is after the last statement of the last 
paragraph in procedure-name-1. 

c. If procedure-name-2 is specified and it is a paragraph-name, then 
the return is after the last statement of the paragraph. 

d. If procedure-name-2 is specified and it is a section-name, then 
the return is after the last statement of the last paragraph in 
the section. 

2. There is no necessary relationship between procedure-name-1 and 

procedure-name-2 except that a consecutive sequence of operations is to 
be executed beginning at the procedure named procedure-name-1 and 

ending with the execution of the procedure named procedure-name-2. In 
particular, GO TO and PERFORM statements may occur between 
procedure-name-L and the end of procedure-name-2. If there are two or 
more logical paths to the return point, then procedure-name-2 may be 
the name of a paragraph consisting of the EXIT statement, to which all 
of these paths must lead. 

3. If control passes to these procedures other than via a PERFORM 

statement the procedures are executed right through to the next 

executable statement in the main program as if they were Just part of 
the main program. 

4. The PERFORM statements operate as follows with rule 3 above applying to 
all formats: 

a. Format l is the basic PERFORM statement. A procedure referenced 
by this type of PERFORM statement is executed once and then 
control passes to the next executable statement following the 
PERFORM statement. 

b. Format 2 is the PERFORM...TIMES. The procedures are performed the 
number of times specified by integer-! or by the initial value of 
the data item referenced by identifier-! for that execution. If, 
at the time of execution of a PERFORM statement, the value of the 
data item referenced by identifier-1 is equal to zero or is 
negative, control passes to the next executable statement 
following the PERFORM statement. Following the execution of the 
procedures the specified number of times, control is transferred 
to the next executable statement following the PERFORM statement. 
During execution of the PERFORM statement, references to identi¬ 
fier-1 cannot alter the number of times the procedures are to be 
executed from that which was indicated by the initial value of 
identifier-!. 

C. Format 3 is the PERFORM.. .UNTIL. The specified procedures are 
performed until the condition specified by the UNTIL phrase is 
true. When the condition is true, control is transferred to the 
next executable statement after the PERFORM statement. If the 
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condition is true when the PERFORM statement is entered, no 
transfer to procedure-name-1 takes place, and control is passed to 
the next executable statement following the PERFORM statement. 

5. If a sequence of statements referred to by a PERFORM statement includes 
another PERFORM statement, the sequence of procedures associated with 
the included PERFORM must itself either be totally included in, or 
totally excluded from, the logical sequence referred to by the first 
PERFORM. Thus, an active PERFORM statement, whose execution point 
begins within the range of another active PERFORM statement, must not 
allow control to pass to the exit of the other active PERFORM 
statement; furthermore, two pr more such active PERFORM statements may 
not have a common exit. See Figure 3-1. 

x PERFORM a THRU nf x PERFORM a THRU ra 


d 

f 

j 

m 


PERFORM f THRU j 

) 


- ^ 

d PERFORM f THRU j 


h 


m 


J 


f 


) 


x PERFORM a THRU m 
a 
f 
m 

j 

d PERFORM f THRU j 
Fig. 3-1. PERFORM Statement in Sequence. 



6. A PERFORM statement that appears in a section that is not an 
independent segment can have within its range, in addition to any 
declarative sections whose execution is caused within that range, only 
one of the following: 

a. Sections and/or paragraphs wholly contained in one or more 
non-independent segments. 

b. Sections and/or paragraphs wholly contained in a single 
independent segment. 



7. A PERFORM statement that appears in an independent segment can have 
within its range, in addition to any declarative sections whose 
execution is caused within that range, only one of the following: 

a. Sections and/or paragraphs wholly contained in one or more 
non-independent segments. 

b. Sections and/or paragraphs wholly contained in the same 
independent segment as that PERFORM statement. 

5, PERFOpn st h c eiaaiitB must not be nested to greater chan 22 luf-sls. 
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THE STOP STATEMENT 


Function 


The STOP statement causes a permanent or temporary suspension of the 
execution of the object program. 


General Format 


STOP 


RUN 

literal 


Syntax Rules 

1. The literal may be numeric or non-numeric or may be any figurative 
constant, except ALL. 

2. If the literal is numeric, then it must be an unsigned integer. 

3. If a STOP RUN statement appears in a consecutive sequence of imperative 
statements within a sentence, it must appear as the last statement in 
that sequence. 


General Rules 


1. If the RUN phrase is used, then the operating system ending procedure 
is instituted. 

2. If STOP literal is specified, the literal is communicated to the 
operator. Continuation of the object program begins with the execution 
of the next executable statement in sequence. 
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THE SUBTRACT STATEMENT 


Function 


The SUBTRACT statement is used to subtract one, or the sum of two or 
more, numeric data items from one or more items, and set the values of one 
or more items equal to the results. 


General Format 


Format 1 


SUBTRACT {“ffffr 1 ! •|£££T 2 | - 

identifier-m [ROUNDED] identifier-n [ ROUNDED ] 

[; ON SIZE ERROR imperative-statement] 


Format 2 


SUBTRACT j 

; identifier-1) 
'literal-1 > 

,(identifier-2) 

... FROM identifier-m 

“ 1 1 

'literal—z ) 


GIVING 

identifier-n 

[ROUNDED] T, 

, identifier-o [ROUNDED] 


[; ON SIZE ERROR imperative-statement] 


Syntax Rules 


1. Each identifier must refer to a numeric elementary item except that in 
Format 2, each identifier following the word GIVING must refer to 
either an elementary numeric item or an elementary numeric edited itou. 

2. Each literal must be a numeric literal. 

3. The composite of operands must not contain more than 18 digits. (See 
The Arithmetic Statements in this Chapter). 

a. In Format 1 the composite of operands is determined by using all 
of the operands in a given statement. 

b. In Format 2 the composite of operands is determined by using all 
of the operands in a given statement excluding the data items that 
follow the word GIVING. 



General Rules 


1. See The Rounded Phrase , The Size Error Phrase , The Arithmetic 
Statement , Overlapping Operands and Incompatible Data in this Chapter. 

2. In Format 1, all literals or identifiers preceding the word FROM are 
added together and this total is subtracted from the current value of 
identifier-m storing the result immediately into identifier-ra, and 
repeating this process respectively for each operand following the word 
FROM. 

3. In Format 2, all literals or identifiers preceding the word FROM are 
added together, the sum is subtracted from literal-m or identifier-m 
and the result of the subtraction is stored as the new value of 
Identifier-n, identifier-n* etc. 

4. The compiler ensures enough places are carried so as not to lose 
significant digits during execution. 


133 



CHAPTER 4 


TABLE HANDLING 

INTRODUCTION TO THE TABLE HANDLING MODULE 


The Table Handling module provides a capability for defining tables of 
contiguous data Items and accessing an Item relative to its position In the 
table. Language facilities are provided for specifying how many times an 
Item is to be repeated. Each Item may be Identified through use of a 
subscript or an index (see Chapter 2). 

Table Handling provides a capability for accessing Items In variable 
length tables v of multiplediraensions. The maximum number of multiple 
d ime ns ions \is Oh Is restricted to three. 


DATA DIVISION IN THE TABLE HANDLING MODULE 


THE OCCURS CLAUSE 
Function 


The OCCURS clause eliminates the need for separate entries for repeated 
data Items and supplies information required for the application of 
subscripts or Indices. 


General Format 


OCCURS integer-2 TIMES 


[ INDEXED BY index-name-I [, index-name-2] 


] 


Syntax Rules 

1. An INDEXED BY phrase is required if the subject of this entry, or an 
entry subordinate to this entry, is to be referred to by indexing. The 
index-name identified by this clause is not defined elsewhere since its 
allocation and format are dependent on the hardware, and not being 
data, cannot be associated with any data hierarchy. 

2. The OCCURS clause cannot be specified in a data description entry that 

has 01 or 77 level-number (if ANSI ,has< 

3. Index-name-l, index-name-2, ... must be unique words within the 
program. 
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General Rules 


1. The OCCURS clause Is used In defining tables and other homogenous sets 
of repeated data Items. Whenever the OCCURS clause Is used, the 
data-name which Is the subject of this entry must be either subscripted 
or indexed whenever it is referred to in a statement other than USE FOR 
DEBUGGING. Further, if the subject of this entry is the name of a 
group item, then all data-names belonging to the group must be 
subscripted or Indexed whenever they are used as operands, except as 
the object of a REDEFINES clause. (See under headings Subscripting, 
Indexing and Identifier In Chapter 2). 

2. Except for the OCCURS clause itself, all data description clauses 
associated with an item whose description Includes an OCCURS clause 
apply to each occurrence of the item described. (See restriction in 
general rule 2 under Data Description Entries Other Than Condition 
Names in Chapter 3). 

3. The number or occurrences of the subject entry is defined as the value 
of integer-2 representing the exact number of occurrences. 
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THE USAGE CLAUSE 


Function 


The USAGE clause specifies the format of a data item in the compute’' 
storage. 

General Format 


[ USAGE IS] INDEX 

Syntax Rules 

1. An index data item can be referenced explicitly only in a SET 
statement, a relation condition, the USING phrase of a Procedure 
Division header, or the USING phrase of a CALL statement. 

2. The SYNCHRONIZED, JUSTIFIED, PICTURE, VALUE and BLANK WHEN ZERO clauses 
cannot be used CO describe group or elementary items described with the 
USAGE IS INDEX clause. 

General Rules 


1. The USAGE clause can be written at any level. If the USAGE clause is 
written at a group level, it applies to each elementary item in the 
group. The USAGE clause of an elementary item cannot contradict the 
USAGE clause of a group to which the item belongs. 

2. An elementary item described with the USAGE IS INDEX clause is called 

an index data item and contains a value which must correspond to an 

occurrence number of a table element. The elementary item cannot be a 
conditional variable. The compiler will allocate a 2 byte binary field 
with an implied picture of 9(4) COMPUTATIONAL. If a group item is 
described with the USAGE IS INDEX clause the elementary items in the 
group are all index data items. The group itself is not an index data 
item and cannot be used in the SET statement or in a relation 
condition. 

3. An index data item can be part of a group which is referred to in a 

MOVE or input-output statement, in which case no conversion will take 

place. 



PROCEDURE DIVISION IN THE TABLE HANDLING MODULE 


RELATION CONDITION 

Comparisons Involving Index-Names And/or Index Data Items 

Relation tests may be made between the following data items: 

* Two index-names. The result Is the same as If the corresponding 
occurrence numbers were compared. 

* An index-name and a data item (other than an Index data item) or 
literal* The occurrence number that corresponds to the value of 
the index-name is compared to the data item or literal* 

* An index data item and an index-name or another index data item. 
The actual values are compared without conversion. 

* The result of the comparison of an index data item with any data 
item or literal not specified above Is undefined. 


OVERLAPPING OPERANDS 

When a sending and a receiving Item in a SET statement share a part of 
their storage areas, the result of the execution of such a statement is 
undefined. 


THE SET STATEMENT 
Function 


The SET statement establishes reference points for table handling 
operations by setting index-names associated with table elements. 


General Format 


Format 1 


SET 

lidentifier-1 

[, identifier-2] 

" TO 

(identifier-3 

» index-name-1 

[, index-name-2] 

jindex-name-3 
(integer-1 

Format 2 

SET 

index-name-4 

[* index-name-5] 

( UP BY j 
* * ’ jl DOWN BY i 

(identifier-4j 
«integer-2 > 
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Syntax Rules 


1. All references to index-name-1, identifier-1, and index-name-4 apply 
equally to index-name-2, identifier-2, and index-name-5, respectively. 

2. Identifier-1 and ldentlfler-3 must name either index data items, or 
elementary items described as an integer. 

3. Identifier-4 must be described as an elementary numeric Integer. 

4. Integer-1 and integer-2 may be signed. Integer-1 must be positive. 
General Rules 

1. Index-names are considered related to a given table and are defined by 
being specified in the INDEXED BY clause. 

2 . If index-name-3 is specified, the val ue of the index bef o re the 

execution of the SET statement must correspond to an occurrence number 

of an element in the associated table. 

If index-name-4, index-name-5 is specified, the value of the index both 
before and after the execution of the SET statement must correspond to an 
occurrence number of an element in the associated tab?*. If index-name-1, 
index-name-2 is specified, the value of the index after the execution of the 

SET statement must correspond to an occurrence number of an element in the 

associated table. The value of the index associated with an index-name 
after the execution of a PERFORM statement may be undefined. (See THE 
PERFORM STATEMENT in Chapter 3). 

3. In Format 1, the following action occurs: 

a. Index-name-1 is set to a value causing it to refer to the table 

element that corresponds in occurrence number to the table element 
referenced by index-name-3, identifier-3, or integer-1. If 

identifier-3 is an index data item, or if index-name-3 is related 
to the same table as index-name 1, no conversion takes place. 

b. If identifier-1 is an index data item, it may be set equal to 
either the contents of index-name-3 or identifier-3 where 
identifier-3 is also an index item; no conversion takes place in 
either case. 

c. If identifier-1 is not an index data item, it may be set only to 

an occurrence number that corresponds to the value of 

index-name-3. Neither identifier-3 nor integer-1 can be used in 
this case. 

d. The process is repeated for index-name-2, identifier-2, etc., if 
specified. Each time the value of index-name-3 or identifier-3 is 
used as it was at the beginning of the execution of the statement. 
Any subscripting or indexing associated with identifier-1, etc., 
is evaluated immediately before the value of the respective data 
item is changed. 

4. In Format 2, the contents of index-name-4 are incremented (UP BY) or 
decremented (DOWN BY) by a value that corresponds to the number of 
occurrences represented by the value of integer-2 or identifier-4; 
tnerearter, cne process is repeated for index-name - 5, etc. Each t line 
the value of identifier-4 is used as it was at the beginning of the 
execution of the statement. 


138 



5. Data in Table 4-1 represents the validity of various operand 
combinations in the SET statement. The general rule reference 
Indicates the applicable general rule. 

Table 4-1. SET Statement Valid Operand Combinations. 


Sending Item 

Receiving Item* 

Integer Data Item 

Index-Name 

Index Data Item 

Integer Literal 

No/3c 

Valid/3a 

No/3b 

Integer Data Item 

No/3c 

Valid/3a 

No/3b 

Index-Name 

Valid/3c 

Valid/3a 

VaIId/3b 2 

Index Data Item 

No/3c 

Valid/3a 2 

Valld/3b 2 


1 = Rule numbers under General Rules above are referred to. 

2 = No conversion takes place 
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CHAPTER 5 


SEQUENTIAL INPUT AND OUTPUT 


INTRODUCTION TO THE SEQUENTIAL 1-0 MODULE 

The Sequential 1-0 module provides a capability to access records of a 
file in established sequence. The sequence is established as a result of 
writing the records to the file. It also provides for the specification of 
re-run points and the sharing of memory areas among files. 

LANGUAGE CONCEPTS 

Organization 

Sequential files are organized such that each record in the file except 
the first has a unique predecessor record, and each record except the last 
has a unique successor record. These predecessor-successor relationships 
are established by the order of WRITE statements when the file is created. 
Once established, the predecessor-successor relationships do not change 
except in the case where records are added to the end of the file. 

Access Mode 


In the sequential access mode, the sequence in which records are 
accessed is the order in which the records were originally written. 

Current Record Pointer 


The current record pointer is a conceptual entity used in this document 
to facilitate specification of the next record to be accessed within a given 
file. The concept of the current record pointer has no meaning for a file 
opened in the output mode. The setting of the current record pointer is 
affected only by the OPEN and READ statements. 

I-0 Status 


If the FILE STATUS clause is specified in a file control entry, a value 
is placed into the specified two-character data item during the execution of 
an OPEN, CLOSE, READ, WRITE, or REWRITE statement and before any applicable 
USE procedure is executed, to indicate to the COBOL program the status of 
that input-output operation. 

Status Key 1 

The leftmost character position of the FILE STATUS data item is known 
as Status Key 1 and is set to indicate one of the following conditions upon 
completion of the input-output operation. 

*0* - indicates Successful Completion 

*l f - indicates At End 

'3* - indicates Permanent Error 

*9* - indicates an Operating System Error Message 


The meaning of the above indications are as follows; 

0 - Successful Completion. The input-output statement was 

successfully executed. 

1 - At End. The sequential READ statement was unsuccessfully 

executed as a result of an attempt to read a record when no 
next logical record exists in the file 

3 - Permanent Error. The input-output statement was 

unsuccessfully executed as the result of a boundary violation 
for a sequential file or as the result of an input-output 
error, such as data check parity error, or transmission 
error. 

9 - Operating System Error Message. The input-output statement 

was unsuccessfully executed as a result of a condition that 
is specified by the Operating System Error Message. This 
value is used only to indicate a condition not indicated by 
other defined values of status key 1, or by specified 
combinations of the values of status key 1 and status key 2. 

Status Key 2 

The rightmost character position of the FILE STATUS data item is known 
as Status Key 2 and is used to further describe the results of the 
input-output operation. This character will contain a value as follows; 

* If no further information is available concerning the input-output 
operation, then status key 2 contains a value of r 0*. 

* When status key 1 contains a value of ’3 1 an irrecoverable error 
has occurred. This is treated as a fatal error by the Operating 
System. 

* When status key 1 contains a value of *9\ the value of status key 
2 is the operating system error message number (for those 
operating systems which designate errors numerically)♦ The CIS 
COBOL Operating Guide specific to your operating system contains 
details of this status-key-2 representation. 

Note that it is not possible to extract this number directly. 

Valid Combinations of Status Keys 1 and 2 

The valid permissible combinations of the values of status key 1 and 
status key 2 are shown in the following table. An ’X' at an intersection 
indicates a valid permissible combination. 



Status Key 2 

Status Key 1 

No Further 

Information 

Successful Completion (0) 

(0) 

X 



Permanent Error (3) 


Implementor Defined (9) 

0/S Error Number 
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The AT END Condition 


The AT END condition can occur as a result of the execution of a READ 
statement. For details of the causes of the condition, see THE READ 
STATEMENT later in this Chapter. 





ENVIRONMENT DIVISION IN THE SEQUENTIAL I-Q MODULE 




INPUT-OUTPUT SECTION 

The FILE-CONTROL Paragraph 

Function 

The FILE-CONTROL paragraph names each file and allows specification of 
other file-related information. (See also Appendix I in this manual). 

General Format 

FILE-CONTROL . jfile-control-entry j 


ppm 


The FILE CONTROL Entry 
Function 

The file control entry names a file and may specify other file-related 
information. 

General Format 

S ELECT file-name 

rn $ external-f ile-name-literal j I”, i external-file-name-literal 
GN ffile-identifier >[_ i file-identifier 

[; ORGANIZATION IS j i 1 

[; ACCESS MODE IS SEQUENTIAL ] 

(; FILE STATUS IS data-name-1] 


Syntax Rules 

1. The SELECT clause must be specified first in the file control entry. 
The clauses which follow the SELECT clause may appear in any order. 

2. Each file described in the Data Division must be named once and only 
once as file-name in the FILE-CONTROL paragraph. Each file specified 
in the file control entry must have a file description entry in the 
Data Division". 

3. If the ACCESS MODE clause is not specified, the ACCESS MODE IS 
SEQUENTIAL clause is implied. 

4. Data-name-1 must be defined in the Data Division as a two-character 
data item of the category alphanumeric and must not be defined in the 
File Section. 



5 


When the ORGANIZATION IS SEQUENTIAL clause is not specified, the 
ORGANIZATION IS SEQUENTIAL clause is implied. 


General Rules 

1. The ASSIGN clause specifies the association of the file referenced by 
file-name to a Atangt medium. See Appendix F in the CIS COBOL 
Operating Guide. ■ Ife* flKSt UtfMprtf 




ffgm^ 


2. The ORGANIZATION clause specifies the logical structure of a file. The 
file organization is established at the time a file is created and 
cannot subsequently be changed. 

3. When LINE SEQUENTIAL ORGANIZATION is specified, the file is treated as 

consisting of variable length records, each record containing one line 
of data* Hie definition of a line of data varies with different 

operating systems. Some terminate line “records” with the Carriage 
Return and Line Feed characters, or one of them, and some pad out as 
fixed length records. CIS COBOL therefore is always compatible with 

^ the Editor software in any Operating System in this respect. 

A. Records in the file are accessed in the sequence dictated by the file 

organization. This sequence is specified by predecessor-successor 
record relationships established by the execution of WRITE statements 
when the file is created or extended. 

5. When the FILE STATUS clause is specified, a value will be moved by the 
operating system into the data item specified by data-name-1 after the 
execution of every statement that references that file either 

explicitly or implicitly. This value indicates the status of execution 
of the statement (See 1-0 STATUS in this Chapter). 







The I-O-CONTROL Paragraph 
Function 


The 1-0 CONTROL paragraph specifies the points at which re-run is to be 
established, the memory area which is to be shared by different files, and 
the location of files on a multiple file reel. 


General Format 
I-O-CONTROL. 


j RERUN 


[m \ 


file-name-1 
implementor-name 


0 


EVERY l iDt %T 2 CL ^ N1TS 
condition-name 


}.! 


^[; |sAME AREA FOR file-name-3 J, file-name-4 { ... | ...J 


Syntax Rules 
1 




The I-O-CONTROL paragraph is optional. 

documentation only rtien preset**. 

2. File-name-1 must be a sequentially organized file. 

3. The END OF REEL/UNIT clause may only be used if file-name-2 is a 

sequentially organized file and is for documentation purposes only. 

4. When either the integer-1 RECORDS clause or the integer-2 CLOCK-UNITS 

clause is specified, implementor-name must be given in the RERUN 

clause. 

5. More than one RERUN clause may be specified for a given file-name-2. 

6. The files referenced in the SAME AREA clause need not all have the same 

organisation or access. 




General Rules 

SheRBHUS clause ifr tree’ 

#is tumtml a*. 
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DATA DIVISION IN THE SEQUENTIAL 1-0 MODULE 
FILE SECTION 

In a CIS COBOL program the file description entry (FD) represents the 
highest level of organisation in the File Section. The File Section header 
is followed by a file description entry consisting of a level Indicator 
(FD), a file-name and a series of Independent clauses. The FD clauses 
specify the size of the logical and physical records, the presence or 
absence of label records, the value of Implementor-defined label items, the 
names of the data records which comprise the file. The entry itself is 
terminated by a period. 

RECORD DESCRIPTION STRUCTURE 

A record description consists of a set of data description entries 
which describe the characteristics of a particular record. Each data 
description entry consists of a level-number followed by a data-name if 
required, followed by*a series of independent clauses as required. A record 
description has a hierarchical structure and therefore the clauses used with 
an entry may vary considerably, depending upon whether or not it is followed 
by subordinate entries. The structure of a record description is defined in 
CONCEPT OF LEVELS in Chapter 2, while the elements allowed in a record 
description are shown in the Data Description - Complete Entry Skeleton in 
Chapter 3. 











THE FILE DESCRIPTION - COMPLETE ENTRY SKELETON 


jl |WW 

pWBP 

pBPt 


JSPfe 


Function 

The file description furnishes information concerning the physical 
structure, identification, and record names pertaining to a given file. 


General Format 


FD file-name 


- 

f RECORDS 

; BLOCK CONTAINS integer-2 

\ CHARACTERS/J 


[; RECORD CONTAINS [i.nteger-3 T0_ ] integer-4 CHARACTERS] 

( RECORD IS \ / STANDARD ) 1 

■; i s£5k ) RECORDS ARE/ \ OMITTED f j 




VALUE OF data-name-I IS 


[, data-name-2 IS 


literal-1 
literal-2] 


...] 


—._. /RECORD IS \ 


] 

, DATA j REC0R£)S 

data-name-3 

[, data-narae-4] ... 1 


CODE-SET IS alphabet-name ] 


Syntax Rules 

1. The level indicator FD identifies the beginning of a file description 
and must precede the file-name. 

2. The clauses which follow the name of the file are optional in many 
cases, and their order of appearance is immaterial. ii!H clause* are 

3. One or more record description entries must follow the file description 
entry. 







THE BLOCK CONTAINS CLAUSE 


Function 

The BLOCK CONTAINS clause specifies the size of a physical record. 
General Format 

BLOCK CONTAINS integer {§i|§ ERS } 

General Rule 

This clause is required for docbmeutKiiiuii purposes ^fUy. 


THE CODE-SET CLAUSE 
Function 


The CODE-SET clause specifies the character code set used to represent 
data on the external media. 

General Format 


CODE-SET IS alphabet-name 
Syntax Rules 

1. When the CODE-SET clause is specified for a file, all data In that file 
must be described as usage is DISPLAY and any signed numeric data must 
be described with the SIGN IS SEPARATE clause. 

2. The alphabet-name clause referenced by the CODE-SET clause must not 
specify the literal phrase. 

3. The CODE-SET clause may only be specified for non-disk files. 

General Rule 

j V- ‘ ■■ y'l ■ \v _ , _ _ , r ■ , 

The CODE-SET clause is specified tor ddCuncnLton purpnKcg only.. 


THE DATA RECORDS CLAUSE 
Function 


The DATA RECORDS clause serves only as documentation for the names of 
data records with their associated file. 

General Format 

{HoSs^Re} data-name-1 [, data-name-2] ... 
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Syntax Rule 

Data-name-1 and data-name-2 are the names of data records and should 
have 01 level-number record descriptions, with the same names, 
associated with them. 

General Rules 


1. The presence of more than one data-name indicates that the file 

contains more than one type of data record. These records may be of 

differing sizes, different formats, etc. The order in which they are 
listed is not significant. 

2. Conceptually, all data records within a file share the same area. This 

is in no way altered by the presence of more than one type of data 

record within the file. 


THE LABEL RECORDS CLAUSE 
Function 

General Format 


LABEL 


fRECORD IS \ f STANDARD ) 
1 RECORDS ARE/ j OMITTED / 


Syntax Rule 

This clause is required in every file description entry, 


when the ANSI 


General Rule 


s s only 


THE RECORD CONTAINS CLAUSE 
Function 

The RECORD CONTAINS clause specifies the size of data records. 
General Format 

RECORD CONTAINS [integer-1 TO] integer-2 CHARACTERS 


General Rule 

The size of each data record is completely defined within the record 
description entry, therefore this clause is never required. ; 
CQNtAX!^ clause i« specified for documentation St 
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THE VALUE OF CLAUSE 


Function 

The VALUE OF clause specifies the description of an item in the label 
records associated with a file. 

General Format 

VALUE OF data-name-1 IS literal-1 

[• dataname2 IS literal-2] ... 

General Rules 

1. fltU tibiae la usii fpr Inniunftfifflft fotpDMS 

2. A figurative constant may be substituted in the format above wherever a 
literal is specified. 


ftan^ 









PROCEDURE DIVISION IN THE SEQUENTIAL 1-0 MODULE 


THE CLOSE STATEMENT 
Function 

The CLOSE statement terminates the processing of files. 
General Format 

CLOSE file-name-1 J 


Syntax Rule 

The REEL or UNIT phrase must only be used for sequential files, 


General Rules 


1. A CLOSE statement may only be executed for a file in an open mode. 

2. The action taken If the file is in the open mode when a STOP RUN 

statement Is executed is to close the file. The action taken for a file 

that has been opened in a called program and not closed in that program 
prior to the execution of a CANCEL statement for that program is to 
leave the file open. 

3. If a CLOSE statement has been executed for a file, no other statement 
can be executed that references that file, either explicitly or 
implicitly, unless an Intervening OPEN statement for that file is 
executed. 

4. Following the successful execution of a CLOSE statement the record area 

associated with file-name is no longer available. The unsuccessful 
execution of such a CLOSE statement leaves the availability of the 

record area undefined. 
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THE OPEN STATEMENT 




Function 

The OPEN statement initiates the processing of files. It also performs 
checking and/or writing of labels and other input-output operations. 


General Format 


OPEN 


INPUT file-name-1 [, file-name-2] . 1 

; OUTPUT file-name-3 [, file-name-4] 

I 1-0 file-name-5 l, file-name-6] ...| 

EXTEND file-name-7 [ t file-name-8] _ 


Syntax Rules 

1. The I—0 phrase can be used only for disk files, except 

~ ' tiilfrirfT ‘'-Mfir Tifi ;4> 

2. The EXTEND phrase can be used only for sequential 


General Rules 


1. The successful execution of an OPEN statement determines the avail¬ 
ability of the file and results in the file being in an open mode. 

2. The successful execution of an OPEN statement makes the associated 
record area available to the program. 

3. Prior to the successful execution of an OPEN statement for a given 
file, no statement can be executed that references that file, either 
explicitly or implicitly. 

4* An OPEN statement must be successfully executed prior to the execution 
of any of the permissible input-output statements. In Table 5-1, 'X 1 
at an intersection indicates that the specified statement, used in the 
sequential access mode, may be used with the sequential file 
organization and open mode given at the top of the column. 


*■3 




■1 
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Table 5-1. Permissable Combinations of Statements and 0*?EN Modes for 

Sequential I/O. 


Statement 

Open Mode 

READ 

Input 

Output 

Input-Output* 

Extend 

X 


X 


WRITE 


X 


X 

REWRITE 



X 



If- This OPEN mode is not supported 


5. A file may be opened with the INPUT, OUTPUT, EXTEND and 1-0 phrases in 
the same program. Following the initial execution of an OPEN statement 
for a file, each subsequent OPEN statement execution for that same file 
must be preceded by the execution of a CLOSE statement, for that file. 

6. Execution of the OPEN statement does not obtain or release the first 
data record. 

7. The ASSIGNed name in the SELECT statement for a file is processed as 
follows: 

a. When the INPUT phrase is specified, the execution of the OPEN 

statement causes the ASSIGNed name to be checked in accordance 
with the operating system conventions for opening files for input. 

b. When the OUTPUT phrase is specified, the execution of the OPEN 

statement causes the ASSIGNed name to be written in accordance 
with the operating system conventions for opening files for 
output. 

8. The file description entry for file-name-1, file-name-5, must be 

equivalent to that used when this file was created. 

9. If the storage medium for the file permits rewinding, execution of the 
OPEN statement causes the file to be positioned at its beginning. 

10. For files being opened with the INPUT or 1-0 phrase, the OPEN statement 
sets the current record pointer to the first record currently existing 
within the file. If no records exist in the file, the current record 
pointer is set such that the next executed READ statement for the file 
will result in an AT END condition. If the file does not exist, OPEN 
INPUT will cause an error status. 

H. When the EXTEND phrase is specified, the OPEN statement positions the 
file immediately following the last logical record of that file. 
Subsequent WRITE statements referencing the file will add records to 
the file as though the file had been opened with the OUTPUT phrase. 
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The 1-0 phrase permits the opening of a disk file for both input and 

output except for files in ORGANIZATION LINE SttUKirmU H M 

H tUl liW not tC ufll fee i Mil flu. 1 

Upon successful execution of an OPEN statement with the OUTPUT phrase 
specified* a file is created. At that time the associated file 
contains no data records. Tf ■ III* 0* tft» flWiin eriafe 
daUtftd* 1£An VTisrrwiU 



THE READ STATEMENT 


Function 


The READ statement makes available the next logical record from a file. 


General Format 


READ file-name RECORD [ INTO identifier] [; AT END imperative-statement] 

Syntax Rules 

1. The INTO phrase must not be used when the Input file contains logical 
records of various sizes as Indicated by their record descriptions. 
The storage area associated with Identifier and the record area 
associated with file-name must not be the same storage area. 

2. The AT END phrase must be specified If no applicable USE procedure Is 
specified for file-name. 

General Rules 


1. The associated file must be open In the INPUT or 1-0 mode at the time 
this statement is executed. (See THE OPEN STATEMENT in this Chapter). 

2. The record to be made available by the READ statement Is determined as 
follows: 

a. If the current record pointer was positioned by the execution of 
the OPEN statement, the record pointed to by the current record 
pointer is made available. 

b. If the current record pointer was positioned by the execution of a 
previous READ statement, the current record pointer is updated to 
point to the next existing record in the file and then that record 
is made available. 

3. The execution of the READ statement causes the value of the FILE STATUS 

data item, if any, associated with file-name to be updated. (See 1-0 

STATUS in this Chapter). 

4. Regardless of the method used to overlap access time with processing 

time, the concept of the READ statement is unchanged in that a record 
is available to the object program prior to the execution of any 

statement following the READ statement. 

5. When the logical records of a file are described with more than one 

record description, these records automatically share the same storage 
area; this is equivalent to an implicit redefinition of the area. The 
contents of any data items which lie beyond the range of the current 
data record are undefined at the completion of the execution of the 
READ statement. 
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6. If the INTO phrase is specified, the record being read is moved from 
the record area to the area specified by identifier according to the 
rules specified for the MOVE statement. The implied MOVE does not 
occur if the execution of the READ statement was unsuccessful. Any 
subscripting or indexing associated with identifier is evaluated after 
the record has been read and immediately before it is moved to the data 
item. 

7. When the INTO phrase is used, the record being read is available in 

both the input record area and the data area associated with 

identifier. 

8. If, at the time of execution of a READ statement, tne position of 

current record pointer for that file is undefined, the execution of 
that READ statement is unsuccessful. 

9. If the end of a reel or unit is recognized during the execution of a 
READ statement, an end-of-file status condition exists. 

a. The standard ending reel/unit label procedure. 

b. A reel/unit swap. 

c. The standard beginning reel/unit label procedure. 

d. The first data record of the new reel/unit is made available. 

11. If, at the time of the execution of a READ statement, no next logical 

record exists in the file, the AT END condition occurs, and the 
execution of the READ statement is considered unsuccessful. (See 1-0 
STATUS). 

12. When the AT END condition is recognized the following actions are taken 
in the specified order: 

a. A value is placed into the FILE STATUS data item, if specified for 

this file, to indicate an AT END condition. (See 1-0 STATUS). 

b. If the AT END phrase is specified in the statement causing the 

condition, control is transferred to the AT END 
imperative-statement. Any USE procedure specified for this file 
is not executed. 

c. If the AT END phrase is not specified, then a USE procedure must 

be specified, either explicitly or implicitly, for this file and 

that procedure is executed. 

When the AT END condition occurs, execution of the input-output 
statement which caused the condition is unsuccessful. 

13. Following the unsuccessful execution of any READ statement, the 
contents of the associated record area and the position of the current 
record pointer are undefined. 

14. When the AT END condition has been recognized, a READ statement for 
that file must not be executed without first executing a successful 
CLOSE statement followed by the execution of a successful OPEN 
statement for that file. 


fill} 
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THE REWRITE STATEMENT 


Function 


The REWRITE statement logically replaces a record existing in a disk 

file. 


General Format 

REWRITE record-name [ FROM identifier] 

Syntax Rules 

1, Record-name and identifier must not refer to the same storage area. 

2. Record-name is the name of a logical record in the File Section of the 
Data Division and may be qualified. 

General Rules 


1. The file associated with record-name must be a disk file and must be 
open in the 1-0 mode at the time of execution of this statement, (See 
THE OPEN STATEMENT in this Chapter). 

2. The last input-output statement executed for the associated file prior 
to the execution of the REWRITE statement must have been a successfully 
executed READ statement. The operating system logically replaces the 
record that was accessed by the READ statement. 

3. The number of character positions in the record referenced by 
record-name must be equal to the number of character positions in the 
record being replaced. 

4. The logical record released by a successful execution of the REWRITE 

statement is no longer available in the record area. 

5. The execution of a REWRITE statement with the FROM phrase is equivalent 
to the execution of: 

MOVE identifier TO record-name 

followed by the execution of the same REWRITE statement without the 
FROM phrase. The contents of the record area prior to the execution of 

the implicit MOVE statement have no effect on the execution of the 

REWRITE statement. 

6. The current record pointer is not affected by the execution of a 

REWRITE statement. 

7. The execution of the REWRITE statement causes the value of the FILE' 
STATUS data Item, If any, associated with the file to be updated. (See 
1-0 STATUS in this Chapter). 

8 . with line sequential '■-■W&tim*' 
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THE USE STATEMENT 


Function 


The USE statement specifies procedures for input-output error handling 
that are in addition to the standard procedures provided by the input-output 
control system. 


General Format 


I file-name-1\ 
I INPUT I 

USE AFTER STANDARD j ™^ TIQN j EROCEDURE ON? OUTPUT ( 

[extend 


Syntax Rules 


1. A USE statement, when present, must immediately follow a section header 
in the declaratives section and must be followed by a period followed 
by a space. The remainder of the section must consist of zero, one or 
more procedural paragraphs that define the procedure to be used. 


2. The USE statement itself is never executed; it merely defines the 
conditions calling for the execution of the USE procedures. 


General Rules 


1. If the AT END phase has not been specified in the input-output 
statement, the designated procedures are executed by the input-output 
system after completing the standard input-output error routine upon 
recognition of the AT END condition 

2. After execution of a USE procedure, control Is returned to the invoking 
routine. 

3. Within a USE procedure, there must not be any reference to any non¬ 
declarative procedures. Conversely, in the nondeclarative portion 
there must be no reference to procedure-names that appear in the 
declarative portion, except that PERFORM statements may refer to a USE 
statement or to the procedures associated with such a USE statement. 

4. Within a USE procedure, there must not be the execution of any state¬ 
ment that would cause the execution of a US E procedure that had 
previously been invoked and had not yet returned control to the 
invoking routine. 



THE WRITE STATEMENT 


Function 


The WRITE statement releases a logical record for an output file. It 
can also be used for vertical positioning of lines within a logical page. 

General Format 

WRITE record-name [ FROM identifiet-1] 

integer 

PAGE 

Syntax Rules 

1. Record-name and identifier-1 must not reference the same storage area. 

2. When TAB is specif ied the result, • to CAtUjW 'the' ^■■to■ p|jj| | 

staudard vertical tabulation position^ 

3. The record-name is the name of a logical record in the File Section of 
the Data Division, 

4. Integer may be zero. 

General Rules 


L BEFORE j 
1 AFTER I 


ADVANCING 



1. The associated file must be open in the OUTPUT mode at the time of the 
execution of this statement. (See THE OPEN STATEMENT in this Chapter). 

2. The logical record released by the execution of the WRITE statement is 
no longer available in the record area unless the execution of the 
WRITE statement was unsuccessful due to a boundary violation. 

3. The results of the execution of the WRITE statement with the FROM 
phrase is equivalent to the execution of: 

a. The statement: 

MOVE identifier-1 TO record-name 

according to the rules specified for the MOVE statement, followed 
by: 

b. The same WRITE statement without the FROM phrase. 

The contents of the record area prior to the execution of the 
implicit MOVE statement have no effect on the execution of this 
WRITE statement. 
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After execution of the WRITE statement is complete, the 
information in the area referenced by identifier-1 is available, 
even though the information in the area referenced by record-name 
may not be. (See general rule 2.) 

4. The current record pointer is unaffected by the execution of a WRITE 
statement. 

5. The execution of the WRITE statement causes the value of the FILE 
STATUS data item, if any, associated with the file to be updated. (See 
1-0 STATUS In this Chapter). 

6. The maximum record size for a file is established at the time the file 
is created and must not subsequently be changed. 

7. The number of character positions on a disk; required to store a logical 
record in a file may or may not be equal to the number of character 
positions defined by the logical description of that record in the 
program. 

8. The execution of the WRITE statement releases a logical record to the 
operating system. 

9. The ADVANCING phrase allows control of the vertical positioning of each 
line on a representation of a printed page. 

a. With ORGANIZATION SEQUENTIAL if the ADVANCING phrase Is not used, 
automatic advancing is provided when output is directed to a 
list-device to act as if the user had specified AFTER 
ADVANCING 1 LINE. If the ADVANCING phrase is used, advancing is 
provided as follows: 

i. If Integer is specified, the representation of the printed 
page is advanced the number of lines equal to the value of 
integer. 

ii. If the BEFORE phrase is used, the line is presented before 
the representation of the printed page is advanced. 

iii. If the AFTER phrase is used, the line is presented after the 
representation of the printed page is advanced. 

iv. If PAGE Is specified, the record is presented on the logical 
page before or after (depending on the phrase used) the 
device is repositioned to the next logical page. 

b. With ORGAN LZATIGN LINE EEC-UENTIAL, if th* JUPVANCTE& phrase Is not 

used, automatic advancing of one. Line la provided ro ntt In 
accordance with the cow&at£an oE yascr ay* t tun t«*t. 

editor (onualiy Jf thff user had specified BEFORE 

ADVANCING i LINE), 

r ..' :■: r ': ■;■ ■ ■;';;■ ■ ■■; .> * ■ ■ ; ;;;= ; ; ■■ : 

It toe ADVANCING phrezsc is aaiid, zidviisting i* provided according 


160 



If the ADVANCING phrase is used or the output is directed to a 

list device, the resulting file is restricted in its use. In 

general, the file cannot be read to automatically retrieve the 
logical records written. In particular, if the BEFORE ADVANCING 
and AFTER ADVANCING clauses are both used (implicitly or 

explicitly) when writing the file, it may not be opened as an 

input file with ORGANIZATION LINE SEQUENTIAL. 

10. When an attempt is made to write beyond the externally defined bound¬ 
aries of a sequential file, an exception condition exists and the 
contents of the record area are unaffected. The following action takes 
place: 

a. The value of the FILE STATUS data item, if any, of the associated 
file is set to a value indicating a boundary violation. (See 1-0 
STATUS in this Chapter). 

b. If a USE AFTER STANDARD EXCEPTION declarative is explicitly or 
implicitly specified for the file, that declarative procedure will 
then be executed. 

c* If a USE AFTER STANDARD EXCEPTION declarative is not explicitly or 
implicitly specified for the file, the result is undefined. 
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CHAPTER 6 


RELATIVE INPUT AND OUTPUT 

INTRODUCTION TO THE RELATIVE 1-0 MODULE 


The Relative 1-0 module provides a capability to access records of a mass 
storage file ip either a random or sequential manner. Each record in a 
relative file is uniquely identified by an integer value greater than zero 
which specifies the record*s ordinal position in the file. (See the CIS 
COBOL Operating Guide for the maximum number of records in a relative file.) 

LANGUAGE CONCEPTS 

Organization 


Relative file organization is permitted only on disk devices. A relative 
file consists of records which are identified by relative record numbers. 
The file may be thought of as composed of a serial string of areas, each 
capable of holding a logical record. Each of these areas is denominated by 
a relative record number. Records are stored and retrieved based on this 
number. For example, the tenth record is the one addressed by relative 
record number 10 and is in the tenth record area, whether or not records 
have been written in the first through the ninth record areas. 

Access Modes 


In the sequential access mode, the sequence in which records are accessed is 
the ascending order of the relative record numbers of all records ‘which 
currently exist within the file. 

In the random access mode, the sequence in which records are accessed is 
controlled by the programmer. The desired record is accessed by placing its 
relative record number in a relative key data item. 

In the dynamic access mode, the programmer may change at will from 
sequential access to random access using appropriate forms of input-output 
statements. 

Current Record Pointer 


The current record printer is a conceptual entity used in this document to 
facilitate specification of the next record to be accessed within a given 
file. The concept of the current record pointer has no meaning for a file 
opened in the output mode. The setting of the current record pointer is 
affected only by the OPEN, START and READ statements. 

1-0 Status 


If the FTLE STATUS clause is specified in a file control entry, a value is 
placed into the specified two-character data item during the execution of an 
OPEN, CLOSE, READ, WRITE, REWRITE, DELETE or START statement and before any 



applicable USE procedure is executed, to indicate to the COBOL program the 
status of that input-output operation. 

Status Key 1 

The leftmost character position of the FILE STATUS data item is known as 
status key 1 and is set to indicate one of the following conditions upon 
completion of the input-output operation. 

'O’ - indicates Successful Completion 

*1* - indicates At End 

*2' - indicates Invalid Key 

*3' - indicates Permanent Error 

*9' - indicates an Operating System Error Message 

The meaning of the above indications are as follows: 

'0* - Successful Completion. The input-output statement was 
successfully executed. 

'1' - At End, The Format 1 READ statement was unsuccessfully 

executed as a result of an attempt to read a record when no 
next logical record exists in the file. 

*2' - Invalid Key. The input-output statement was unsuccessfully 
executed as a result of one of the following: 

* Duplicate Key 

* No Record Found 

* Boundary Violation 

1 3 T - Permanent Error. The input-output statement was unsuccessfully 
executed as the reult of an input-output error, such as data 
check, parity error or transmission error. 

'9' - Operating System Error Message. The input-output statement was 
unsuccessfully executed as the result of a condition that is 
specified by the Operating System. This value is used only to 
indicate a condition not indicated by other defined values of 
status key 1, or by specified combinations of the values of status 
key 1 and status key 2. 


Status Key 2 

The rightmost character position of the FILE STATUS data item is known 
as status key 2 and is used to further describe the reults of the 
input-output operation. This character contains a value as follows: 

* If no further information Is available concerning the input-output 
operation, then status key 2 contains a value of *0’ 
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* When status key 1 contains a value of *2* indicating an INVALID 
KEY condition, status key 2 is used to designate the cause of that 
condition by the following values: 

2 - Indicates a duplicate key value. An attempt has been 

made to write a record that would create a duplicate key 
in a relative file. 

3 - Indicates no record found. An attempt has been made to 

access a record, identified by a key, and that record 
does not exist in the file. 

4 - Indicates a boundary violation. An attempt has been 

made to write beyond the externally-defined boundaries 
of a relative file. This is normally treated as a fatal 
error by the Operation System, 

* When status key 1 contains a value of *9* the value of status key 
2 is the operating system error message number (for those 
operating systems which designate errors numerically). The CIS 
COBOL Operating Guide specific to your operating system contains 
details of the status-key-2 representation* 

Note that it is not possible to extract this number directly. 

Valid Combinations of Status Keys 1 and 2 


SpSJ 


The valid permissible combinations of the values of status key 1 and 
status key2 are shown in the table. An 'X' at an intersection indicates a 
valid permissible combination. 











pm 


JPHKl 

pm 

|S5P^ 


The INVALID KEY Condition 

The INVALID KEY condition can occur as a result of the execution of a START, 
READ, WRITE, REWRITE or DELETE statement. For details of the causes of the 
condition, see The START Statement, The READ Statement, The WRITE Statement, 
The REWRITE Statement, and The DELETE Statement later in this chapter. 

When the INVALID KEY condition is recognised, the Operating System takes 
these actions in the following order: 

1. A value is placed into the FILE STATUS data item, if specified for this 
file, to indicate an INVALID KEY conditUm. (See T-0 Status in this 
Chapter) . 

2. If the INVALID KEY phrase is specified in the statement causing the 
condition, control is transferred to the INVALID KEY imperative 
statement. Any USE procedure specified for this file is not executed. 

3. If the INVALID !'*Y phrase is not specified, but a USE procedure is 
specified, either explicitly or Implicitly, for this file, that 
procedure is executed. 

When the INVALID KEY condition occurs, execution of the input-output 
statement which recognised the condition is unsuccessful, and the file is 
not affected. 


jHISI 


The AT END Condition 

The AT END condition can occur as a result of the execution of a READ 
statement. For details of the causes of the condition, see The READ 
Statement later in this chapter. 
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ENVIRONMENT DIVISION IN THE RELATIVE 1-0 MODULE 




INPUT-OUTPUT SECTION 

The File-Control Paragraph 

Function 

The FILE-CONTROL paragraph names each file and allows specification of 
other file-related Information. (See also Appendix F In the CIS COBOL 
Operating Guide). 

Geueral Format 

FILE-CONTROL j file-control-entryj ... 

The File-Control Entry 
Function 

The file cuntrol entry names a file and may specify other file-related 
information* 

General Format 

SELECT file-name 

ASSIGN TO iexternal-file-name-literal) 
f file-identifier » 

[ « external-file-nane-literal) 1 
* i file-identifier 'J 

; ORGANIZATION IS RELATIVE 


SEQUENTIAL . RELATIVE KEY IS data-name 
j DYNAMIC j RELATIVE KEY IS data-name-1 


[; FILE STATUS IS data-narae-2]. 


; ACCESS MODE IS 


6 ^ 


mm 




Syntax Rules 

1. The SELECT clause must be specified first in the file control entry. 

The clauses which follow the SELECT clause may appear in any order. 

2. Each file described in the Data Division must be named once and only 

once as file-name in the FILE-CONTROL paragraph. Each file specified 
in the file control entry must have a file description entry in the 
Data Division. 

3. If the ACCESS MODE clause is not specified, the ACCESS MODE IS 
SEQUENTIAL clause is implied. 


mm 
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4. Data-name-2 must be defined in the Data Division as a two-character 
data item of the category alphanumeric and must not be defined in the 
File Section, the Report Section, or the Communication Section. 

5. Data-name-1 must not be defined in a record description entry 
associated with that file-name. 

6. The data item referenced by data-name-1 must be defined as an unsigned 
integer. 


General Rules 

1. The ASSIGN clause specifies the association of the file referenced by 
file-name to a storage medium. See A^frandijf F in the CIS COBOL 

Guide. Iftm ftcfct CAfeAfc Suftaftpumn 

UfflMnw&to* vltUs Stay ode clau#*: 4V* for till turnip -fUitpAiro 

nfrlf 

2. liid ORGANIZATION clause specifies the logical structure of a file. The 
file organization is established at the time a file is created and 
cannot subsequently be changed. 

3. When the access mode is sequential, records in the file are accessed in 
the sequence dictated by the file organization. This sequence is the 
order of ascending relative record numbers of existing records in the 
file. 

4. When the FILE STATUS clause is specified, a value will be moved by the 
operating system into the data item specified by data-name-2 after the 
execution of every statement that references that file either 
explicitly or implicitly. This value indicates the status of execution 
of the statement. (See 1-0 Status in this Chapter). 

5. If the access mode is random, the value of the RELATIVE KEY data item 
indicates the record to be accessed. 

6. When the access made is dynamic, records in the file may be assessed 
sequentially and/or randomly. (See General Rules 3 and 5). 

7. All records stored in a relative file are uniquely identified by 

relative record numbers. The relative record number of a given record 
specifies the record's logical ordinal position in the file. The first 
logical record has a relative record number of 1, and subsequent 
logical records have relative record numbers of 2, 3, 4, ... . 

8. The data item specified by data-name-1 is used to communicate a 

relative record number between the user and the Operating System. 
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The I-0-CONTROL Paragraph 




Function 

The 1-0-CONTROL paragraph specifies the points at which rerun is to be 
established and the memory area which is to be shared by different files. 

General Format 

I-0-CONTROL. 


; RERUN ON l file-name-1 l finteger-1 RECORDS OF file-name-2 

J i EVERY ] integer-2 CLQ.CK-UNITS 

( implementor-name’ (condition-name 

;SAME AREA FOR file-name-3 j , file-name-4 j ... J 

Syntax Rules 



2. File-name-1 must be a sequentially organized file. 

3. When either the integer-1 RECORDS clause or the integer-2 CLOCK-UNITS 
clause is specified. Impleraentor-name must be given in the RERUN 
clause. 

4. More than one RERUN clause may be specified for a given file-name-2, 
subject to the following restriction: 

When multiple integer-1 RECORDS clauses are specified, no two of 
them may specify the same file-name-2. 

5. Only one RERUN clause containing the CLOCK-UNITS clause may be 
specified. 

6. More than one SAME clause may be included in a program but file-nane 
must not appear in more than one SAME AREA clause. 

7. The files referenced in the SAME AREA clause need not all have the same 
organization or access. 

General Rules 

2. i«e S^HE 





» 




n 


168 



DATA DIVISION IN THE RELATIVE 1-0 MODULE 


FILE SECTION 

In a CIS COBOL program the file description entry (FD) represents the 
highest level or organization in the File Section. The File Section header 
is followed by a file description entry consisting of a level indicator 
(FD), a file-name and a series of Independent clauses. The FD clauses 
specify the size of the logical and physical records, the presence or 
absence of label records, the value of implementor-defined label items, and 
the names of the data records which comprise the file. The entry Itself is 
terminated by a period. 

RECORD DESCRIPTION STRUCTURE 

A record description consists of a set of data description entries which 
describe the characteristics of a particular record. Each data description 
entry consists of a level-number followed by a data-name if required, 
followed by a series of independent clauses as required. A record 
description has a hierarchical structure and therefore the clauses used with 
an entry may vary considerably, depending upon whether or not it is followed 
by subordinate entries. The structure of a record description Is defined in 
CONCEPTS OF LEVELS In Chapter 2 while the elements allowed in a record 
description are shown in the DATA DESCRIPTION-COMPLETE ENTRY SKELETON in 
Chapter 3. 


THE FILE DESCRIPTION - COMPLETE ENTRY SKELETON 
Function 


The file description furnishes information concerning the physical 
structure, identification, and record names pertaining to a given file. 

General Format 


FD file-name 

[ ; BLOCK CONTAINS integer-2 j RECORDS | 1 

<CHARACTERS»J 

[; RECORD CONTAINS [integer-3 TO ] Integer-4 CHARACTERS] 


; LABEL 4 RECORD IS i 4 STANDARD ) 

« RECORDS ARE » * OMITTED i 

* VALUE OF impleraentor-name-1 IS literal-1 

[, implementor-name-2 IS literal-2] 1 . 


; DATA \ RECORD IS > data-name-3 [, data-narae-4] 

<RECORDS ARE S 
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Syntax Rules 


The level indicator FD identifies the beginning of a file description 
and must precede the file-name. 


2 . 


The clauses which follow the name of the file are optional in many 
cases, and their order of appearance is immaterial. 11 1 1 


3. 


One or more record description entries must follow the file description 
entry. 


THE BLOCK CONTAINS CLAUSE 
Function 


The BLOCK CONTAINS clause specifies the size of a physical record. 
General Format 


BLOCK CONTAINS integer-2 / RECORDS 

\CHARACTERS 


General Rules 

1. Thitf claust i.ic titr dtocUrtflTitation purposes Only. 

THE DATA RECORDS CLAUSE 
Function 


The DATA RECORDS clause serves only as documentation for the names of 
data records with their associated file. 

General Format 


DATA 


RECORD IS 1 data-name-1 
RECORDS ARE/ 


[, data-name-2] 


Syntax Rule 

Data-name-1 and data-name-2 are the names of data records and should 
have 01 level-number record descriptions, with the same names, 
associated with them. 



General Rules 


1. The presence of more than one data-name indicates that the file 
contains more than one type of data record. These records may be of 
differing sizes, different formats, etc. The order in which they are 
listed is not significant. 

2. Conceptually, all data records within a file share the same area. This 
is in no way altered by the presence of more than one type of data 
record within the file. 


THE LABEL RECORDS CLAUSE 
Function 

The LABEL RECORDS clause specifies whether labels are present. 
General Format 

LABEL f RECORD IS W STANDARD \ 

\ RECORDS ARE nOMITTED / 


Syntax Rule 


This clause : 

General Rule 




THE RECORD CONTAINS CLAUSE 
Function 

The RECORD CONTAINS clause specifies the size of data records. 

Format 

RECORD CONTAINS [integer-1 TO] integer-2 CHARACTERS 

General Rule 

The size of each data record is completely defined within the record 
description entry, therefore this clause is never required. 

Tk^-MOMP anowaft 
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THE VALUE OF CLAUSE 


Function 


The VALUE of clause specialises the description of an item in the label 
records associated with a file. 


General Format 


VALUE OF data-name-1 IS literal-1 


[,data-name-2 IS literal-2] 


Syntax Rules 


1. Data-name-1, data-name-2, etc, should be qualified when necessary, but 
cannot be subscripted or indexed, nor can they be items described with 
the USAGE IS -INDEX clause 


2. Data-name-1, data-name-2 etc, must be in the Working-Storage Section 


General Rules 



A figurative constant may be substituted in the format above wherever a 
literal is specified. 
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PROCEDURE DIVISION IN THE RELATIVE 1-0 MODULE 






U’iro* 

) 


[HWI 


THE CLOSE STATEMENT 
Function 

The CLOSE statement terminates the processing of files. .^e:: LOCK is 
tot -\‘ ' ^ ’ V If 

General Format 

CLOSE file-name-1 [WITH LOCK ] [,file-name-2 [WITH LOCK ]] 

Syntax Rule 

The files referenced in the CLOSE statement need not all have the same 
organization or access. 

General Rules 

L. A CLOSE statement may only be executed for a file in an open mode. 

2. The action taken if a file is in the open mode when a STOP RUN 
statement is executed is to close the file. The action taken for a 
file chat has been opened in a called program and not closed in chat 
program prior to the execution of a CANCEL statement for the program is 
to close the file. 

3. If a CLOSE statement has been executed for a file, no other statement 
can be executed that references that file, either explicitly or 
implicitly, unless an intervening OPEN statement for that file is 
executed. 

4. Following the successful execution of a CLOSE statement, the record 

area associated with file-name is no longer available. The 

unsuccessful execution of such a CLOSE statement leaves the 
availability of the record area undefined. 



THE DELETE STATEMENT 


Function 

The DELETE statement logically removes a record from a mass storage 

file. 

General Format 

DELETE file-name RECORD [; INVALID KEY imperative-statement] 


Syntax Rules 


1. The INVALID KEY phrase must not be specified for a DELETE statement 
which references a file which is in sequential access mode. 

2. The INVALID KEY phrase must be specified for a DELETE statement which 
references a file which is not in sequential access mode and for which 
an applicable USE procedure is not specified 

General Rules 


1. The associated file must be open in the 1-0 mode at the time of the 
execution of this statement. (See THE OPEN STATEMENT later in this 
Chapter) 

2. For files in the sequential access mode, the last input-output 
statement executed for file-name prior to the execution of the DELETE 
statement must have been a successfully executed READ statement. The 
Operating System logically removes from the file the record that was 
accessed by that READ statement. 

3. For a file in random or dynamic access mode, the Operating System 
logically removes from the file that record identified by the contents 
of the RELATIVE KEY data item associated with file-name. If the file 
does not contain the record specified by the key, an INVALID key 
condition exists. (See The INVALID KEY Condition in this Chapter). 

4. After the successful execution of a DELETE statement, the identified 
record has been logically removed from the file and can no longer be 
accessed. 

5. The execution of a DELETE statement does not affect the contents of the 
record area associated with file-name. 

6. The current record pointer is not affected by the execution of a DELETE 
statement. 

7. The execution of the DELETE statement causes the value of the specified 
FILE STATUS data item, if any, associated with the file-name to be 
updated. See T-0 STATUS in this chapter. 



THE OPEN STATEMENT 


Function 


The 

checking 


OPEN statement initiates the processing of files. It also performs 
and/or writing of labels and other input-output operations. 


General Format 


OPEN 


I INPUT file-name-1 
j OUTPUT file-name-3 
I I—0 file-name-5 


[,file-name-2 ...] i 
[,file-name-4 ..,] j 
(,file-name-6 ...] 1 


Syntax Rule 


The files referenced in the OPEN statement need not all have the same 
organization or access. 


General Rules 


1. The successful execution of an OPEN statement determines the 
availability of the file and results in the file being in an open mode. 

2. The successful execution of the OPEN statement makes the associated 
record area available to the program. 

3. Prior to the successful execution of an OPEN statement for a given 
file, no statement can be executed that references that file, either 
explicitly or implicitly. 

4. An OPEN statement must be successfully executed prior to the execution 

of any of the permissible input-output statements. In Table 6-1, 'X' 

at an intersection indicates that the specified statement, used in the 
access mode given for that row, may be used with the relative file 
organization and the open mode given at the top of the column. 
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Table 6-1. Permissible Combinations of Statements and Open Modes for 
Relative I/O 


File Access 


Open Mode 

Mode 

Statement 

Input 

Output 

Input-Output 

Sequential 

READ 

X 


X 


WRITE 


X 



REWRITE 



X 


START 

X 


X 


DELETE 



-X 

Random 

READ 

X 


X 


WRITE 


X 

X 


REWRITE 



X 


START 





DELETE 



X 

Dynamic 

READ 

X 


X 


WRITE 


X 

X 


REWRITE 



X 


start 

X 


X 


DELETE 



X 

5. A file 

may be opened 

with the 

INPUT, OUTPUT, 

AND 1-0 phrases 


same program. Following the initial execution of an OPEN statement for 
a f ile, each subsequent execution for that sane file must be preceded 
by the execution of a CLOSE statement, for that file. 

6. Execution of the OPEN statement does not obtain or release the first 

data record. 

7. The file description entry for file-name-1, file-narae-2, file-name-5 or 
file-name-6 must be equivalent to that used when this file was created. 

8. For files being opened with the INPUT or 1-0 phrase, the OPEN statement 

sets the current record pointer to the first record 

currently existing within the file. If no records exist in the file, 
the current record pointer is set such that the next executed Format 1 
READ statement for the file will result in an AT END condition. If the 
file does not exist, INPUT will cause an error status. 

















9. The 1-0 pettift* t* of a tftpOt and output 

operations. IbitetitU onir n»t df4 

10. Upon successful execution of an OPEN statement with the OUTPUT phrase 

specified, a fiie 1 b *1144led* Xt i he time the **4ioE4,*teri ijji tw&e lM 

fi ae*4 i* ft i i* nt 7*T- niia |'i|TTT nuiM L&4l4 

1 iTOIt |LDiBMl r lit vUI-Be wenlC 
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THE READ STATEMENT 


Function 


For sequential access, the READ statement makes available the next logical 
record from a file. For random access, the READ statement makes available a 
specified record from a disk file. 

General Format 


Format 1 

READ file-name [ NEXT ] RECORD [ INTO identifier] [; AT END imperative-statement] 
Format 2 

READ file-name RECORD [ INTO identifier] [; INVALI D KEY imperative-statment] 
Syntax Rules 

1. The INTO phrase must not be used when the Input file contains logical 
records of various sizes as indicated by their record descriptions. The 
storage area associated with identifier and the record area associated 
with file-name must not be the same storage area. 

2. Format 1 must be used (without the NEXT phrase) for all files in 
sequential access mode. 

3. The NEXT phrase must be specified for files in dynamic access mode, 
when records are to be retrieved sequentially. 

4. Format 2 is used for files in .random access mode or for files in 
dynamic access mode when records are to be retrieved randomly. 

5. The INVALID KEY phrase or the AT END phrase must be specified if no 
applicable USE procedure is specified for file-name. 

General Rules 


1. The associated files must be open in the INPUT or 1-0 mode at the time 
this statement is executed. See THE OPEN STATEMENT in this Chapter 

2. The record to be made available by a Format 1 READ statement is 
determined as follows: 

a. The record, pointed to by the current record pointer, is made 
available provided that the current record pointer was positioned 
by the START or OPEN statement and the record is still accessible 
through the path indicated by the current record pointer; If the 
record is no longer accessible, which may have been caused by the 
deletion of the recori, the current record pointer is updated to 
point to the next existing record in the file and that record is 
then made available. 



b. If the current record pointer was positioned by the execution of a 
previous READ statement, the current record pointer is updated to 
point to the next existing record in the file and then that record 
is made available. 

3. The execution of the READ statement causes the value of the FILE STATUS 
data item, if any, associated with file-name to be updated. (See I-Q 
Status in this Chapter). 

4. Regardless of the method used to overlap access time with processing 

time, the concept of the READ statement is unchanged in that a record 
is available to the object program prior to the execution of any 

statement following the READ statement. 

5. When the logical records of a file are described with more than one 
record description, these records automatically share the same storage 
area; this is equivalant to an implicit redefinition of the area. The 
contents of any data items which lie beyond the range of the current 
data record are undefined at the completion of the execution of the 
READ statement. 

6. If the INTO phrase is specified, the record being read is moved from 
the record area to the area specified by identifier according to the 
rules specified for the MOVE statement without the CORRESPONDING 
phrase. The implied MOVE does not occur if the execution of the READ 
statement was unsuccessful. Any subscripting or indexing associated 
with identifier is evaluated after the record has been read and 
immediately before it is moved to the data item. 

7. When the INTO phrase is used, the record being read is available in 
both the input record area and the data area associated with 
identifier. 

8. If, at the time of execution of a Format 1 READ statement, the position 
of current record pointer for that file is undefined, the execution of 
that READ statement is unsuccessful. 

9. If, at the time of the execution of a Format 1 READ statement, no next 
logical record exists in the file, the AT END condition occurs, and the 
execution of the READ statement is considered unsuccessful. (See 1-0 
Status in this Chapter). 

10. When the AT END condition is recognized the following actions are taken 
in the specified order: 

a. A value is placed into the FILE STATUS data item, if specified for 
this file, to indicate an AT END condition. (See 1-0 Status in 
this Chapter; 

b. If the AT END phrase is specified in the statement causing the 
condition, control is transferred to the AT END 
imperative-statement. Any USE procedure specified for this file 
is not executed. 
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c. If the AT END phrase is not specified, then a USE procedure must 
be upecified, either explicitly or implicitly, for this file, and 
that procedure is executed. 

When the AT END condition occurs, execution of the input-output 
statement which caused the condition is unsuccessful. 

11. Following the unsuccessful execution of any READ statement, the 
contents of the associated record area and the position of the current 
record pointer are undefined. 

12. When the AT END condition has been recognised, a Format 1 READ 
statement for that file must not be executed without first executing 
one of the following: 

a. A successful CLOSE statement followed by the execution of a 
successful OPEN statement for that file. 

b. A successful START statement for that file. 

c. A successful Format 2 READ statement for that file. 

13. For a file for which dynamic access mode is specified, a Format 1 READ 
statement with the NEXT phrase specified causes the next logical record 
to be retrieved from the file as described in general rule 2. 

14. If the RELATIVE KEY phrase is specified, the execution of a Format 1 
READ statement updates the contents of the RELATIVE KEY data item such 
that it contains the relative record number of the record made 
available. 

15. The execution of a Format 2 READ statement sets the current record 
pointer to, and makes available, the record whose relative record 
number is contained in the data item naned in the RELATIVE KEY phrase 
for the file. If the file does not contain Buch a record, the INVALID 
KEY condition exists and execution of the READ statement is 
unsuccessful. (See The INVALID KEY Condition in this Chapter). 









IHWSj 


180 



THE REWRITE STATEMENT 


Function 


The REWRITE statement logically replaces a record existing in a disk file. 


General Format 




REWRITE record-name [ FROM identifier] [; INVALID KEY imperative-statement] 


pPWI 


Syntax Rules 

1* Record-name and identifier must not refer to the same storage area. 

2. Record-name is the name of a logical record in the File Section of the 
Data Division. 

3. The INVALID KEY phrase must be specified in the REWRITE statement for 
files in the random pr dynamic access mode for which an appropriate USE 
procedure is not specified. 


General Rules 




The file associated with record-name must be open in the 1-0 mode at 
the time of execution of this statement. (See THE OPEN STATEMENT in 
this Chapter). 


2 . 


n 



3. 


4. 


5. 




For files in the sequential access mode, the last input-output 
statement executed for the associated file prior to the execution of 
the REWRITE statement must have been a successfully executed READ 
Statement. The Operating System logically replaces the record that was 
accessed by the READ statement. 

The number of character positions in the record referenced by 
record-name must be equal to the number of character positions in the 
record being replaced. 

The logical record released by a successful execution of the REWRITE 
statement is no longer available in the record area. 

The execution of a REWRITE statement with the FROM phrase is equivalent 
to the execution of: 

MOVE identifier TO record-name 

followed by the execution of the same REWRITE statement without the 
FROM phrase. The contents of the record area prior to the execution of 
the implicit MOVE statement have no effect on the execution of the 
REWRITE statement. 



The current record pointer Is not affected by the execution of a 
REWRITE statement. 

The execution of the REWRITE statement causes the value oc the FILE 
STATUS data item, if any, associated with the file to be updated. (See 
1-0 STATUS in this Chapter), 

For a file accessed in either random or dynamic access mode, the 
Operating System logically replaces the record specified by the 
contents of the RELATIVE KEY data item associated with the file. If 
the file does not contain the record specified by the key, the INVALID 
KEY condition exists. (See THE INVALID KEY CONDITION in this Chapter). 
The updating operation does not take place and the data in the record 
area is unaffected. 




THE START STATEMENT 


Function 


The START statement provides a basis for logical positioning within a 
relative file, for subsequent sequential retrieval of records. 


General Format 


START t ile-name 


1 

f Is EQUAL to ^ 

l IS - i 



) IS GREATER THAN | 



| IS > 


KEY j 

IS NOT LESS THAN 

| data-name 


1 IS NOT < ‘ 



[; INVALID KEY imperative-statement] 

NOTE: The required relational characters *>*, and '<’ and 1=1 

are not underlined to avoid confusion with other symbols 
such as '>' (greater than or equal to). 

Syntax Rules 

1. File-name must be the name of a file with sequential or dynamic access. 

2. Data-name may be qualified. 

3. The INVALID KEY phrase must be specified if no applicable USE procedure 
is specified for file-name. 

4. Data-name, if specified, must be the data item specified in the 
RELATIVE KEY phrase of the associated file control entry. 

General Rules 


1. File-name must be open in the INPUT or 1-0 mode at the time that the 
START statement is executed. (See THE OPEN STATEMENT in this Chapter) . 

2. If the KEY phrase is not specified the relational operator *IS EQUAL 
TO' is implied. 

3. The type of comparison specified by the relational operator in the KEY 
phrase occurs between a key associated with a record In the file 
referenced by file-name and a data item as specified in general Rule 5. 

a. The current record pointer is positioned to the first logical 
record currently existing in the file whose key satisfies the 
comparison. 
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b. If the comparison is not satisfied by any record In the file, an 
INVALID KEY condition exists, the execution of the START statement 
is unsuccessful, and the position of the current record pointer is 
undefined. (See The INVALID KEY Condition in this Chapter). 

The execution of the START statement causes the value of the FILE 
STATUS data item, if any, associated with file-name to be updated. (See 
I—0 STATUS in this Chapter). 

The comparison described in general rule 3 uses the data Item 
referenced by the RELATIVE KEY clause associated with file-name. 



THE USE STATEMENT 


Function 


The USE statement specifies procedures for input-output error handling that 
are in addition to the standard procedures provided by the input-output 
control system. 


General Format 


USE AFTER STANDARD 


EXCEPTION 

ERROR 


PROCEDURE ON 


file-name-1 
INPUT 
OUTPUT 
1-0 


Syntax Rules 

1. A USE statement, when present, must immediately follow a section header 
•in the declaratives section and must be followed by a period followed 

by a space. The remainder of the section must consist of zero, one or 
more procedural paragraphs that define the procedures to be used. 

2, The USE statement itself is never executed; it merely defines the 
conditions calling for the execution of the USE procedures. 

General Rules 


1. If the INVALID KEY or AT END phrases have not been specified in the 

input-output statement, the designated procedures are executed by the 
input-output systan after completing the standard input-output error 
routine, or upon recognition of the INVALID KEY or AT END conditions. 

2. After execution of a USE procedure, control is returned to the invoking 
routine. 

3. Within a USE procedure, there must not be any reference to any 

nondeclarative procedures. Conversely, in the nondeclarative portion 

there must be no reference to procedure-names in the declarative 
portion, except that PERFORM statements may refer to a USE statement or 
to the procedures associated with such a USE statenent, 

4. Within a USE procedure, there must not be the execution of any 

statement that would cause the execution of a USE procedure that had 
previously been invoked and had not yet returned control to the 
invoking routine. 
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THE WRITE STATEMENT 


Function 


The WRITE statement releases a logical record for an output or input-output 

file. 

General Format 

WRITE record-name [ FROM identifier] [; INVALID KEY imperative-statement] 
Syntax Rules 


1. Record-name and identifier must not reference the -same storage area. 

2. The record-name is the name of a logical record in the File Section of 
the Data Division. 

3. The INVALID KEY phrase must be specified if an applicable USE procedure 
is not specified for the associated file. 


General Rules 


1. The associated file must be open in the OUTPUT or 1-0 mode at the time 
of the execution of this statement. (See THE OPEN STATEMENT Chapter). 

2. The logical record released by the execution of the WRITE statement is 
no longer available in the record area unless the execution of the 
WRITE statement is unsuccessful due to an INVALID KEY condition. 

3. The results of the execution of . the WRITE statement with the FROM 
phrase is equivalent to the execution of 

a. The statement: 

MOVE identifier TO record-name 

according to the rules specified for the MOVE statement, followed 
by: 

b. The same WRITE statement without the FROM phrase. 

The contents of the record area prior to the execution of the 
implicit MOVE statement have no effect on the execution of this 
WRITE statement. 

After execution of the WRITE statement is complete, the 
information in the area referenced by identifier is available, 
even though the information in the area referenced by record-name 
may not be, (See general rule 2 above), 

4. The current record pointer is unaffected by the execution of a WRITE 
statement. 
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5. The execution of th.i WRITE statement causes the value of the FILE 
STATUS data Item, If any, associated with the file to be updated. (bee 
1-0 Status In this Chapter). 

6. The maximum record size for a file is established at the time the file 
is created and must not subsequently be changed. 

7. The number of character positions on a mass storage device required to 
store a logical record In a file may or may not be equal to the number 
of character positions defined by the logical description of that 
record In the program. 

8. The execution of the WRITE statement releases a logical record to the 
operating system. 

9. When a file is opened in the output mode, records may be placed into 
the file by one of the following: 

a. If the access mode is sequential, the WRITE statement will cause a 
record to be released to the Operating System. The first record 
wll.1 have a relative record number of one and subsequent records 
released will have relative record numbers of 2, 3, 4, ... If the 
R ELAT IVE KEY data Item has been spec if ied In the f ile control 
entry for the associated file, the relative record number of the 
record just released will be placed Into the RELATIVE KEY data 
item by the Operating System during execution of the WRITE 
statement. 

b. If the access mode is random or dynanic, prior to the execution of 
the WRITE statement the value of the RELATIVE KEY data item must 
be initialised in the program with the relative record number of 
be associated with the record in the record area. That record is 
then released to the Operating System by execution of the WRITE 
statement. 

10. When a file is opened in the 1-0 mode and the access mode is random or 
dynamic, records are to be inserted in the associated file. The value 
of the RELATIVE KEY data item must be initialised by the program with 
the relative record number to be associated with the record in the 
record area. Execution of a WRITE statement then causes the contents 
of the record area to be released to the Operating System. 

11. The INVALID KEY condition exists under the following circumstances: 

a. When the access mode is random or dynamic, and the RELATIVE KEY 
data item specifies a record which already exists in the file, or 

b. When an attempt is made to write beyond the externally defined 
boundaries of the file. 

12. When the INVALID KEY condition is recognised, the execution of the 
WRITE statement is unsuccessful, the contents of the record area are 
unaffected, and the FILE STATUS data item, if any, of the associated 
file is set to a value indicating the cause of the condition. 
Execution of the program proceeds according to the rules stated in The 
INVALID KEY Condition in this Chapter see also 1-0 Status in this 
Chapter). 
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CHAPTER 7 


INDEXED INPUT AND OUTPUT 


INTRODUCTION TO THE INDEXED 1-0 MODULE 

The Indexed 1-0 module provides a capability to access records of a 
mass storage file in either a random or sequential manner. Each record in 
an indexed file is uniquely identified by the value of one key within that 
record. 

LANGUAGE CONCEPTS 
Organization 

A file whose organization is indexed is a mass storage file in which 
data records may be accessed by the value of a key. A record description 
includes a key data item, which is associated with an index. The index 
provides a logical path to the data records according to the contents of a 
data item within each record which is the record key. 

The data item named in the RECORD KEY clause of the file control entry 
for a file is the record key for that file. For purposes of inserting, 
updating and deleting records in a file, each record is identified solely by 
the value of its record key. This value must, therefore, be unique and must 
not be changed when updating the record. 

See the CIS COBOL Operating Guide for the maximum number of: 
records in a file. 


Access Modes 


In the sequential access mode, the sequence in which records are 
accessed is the ascending order of the record key values. 

In the random access mode, the sequence in which records are accessed 
is controlled by the programmer. The desired record is accessed by placing 
the value of its record key in the record key data item. 

In the dynamic access mode, the programmer may change at will from 
sequential access to random access using appropriate forms of input-output 
statements. 

Current Record Pointer 


The current record pointer is a conceptual entity used in this document 
to facilitate specification of the next record to be accessed within a given 
file. The concept of the current record pointer has no meaning for a file 
opened only in the output mode. The setting of the current record pointer 
is affected only by the OPEN, START and READ statements. 



I-Q Status 
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If the FILE STATUS clause ts specified In a file control entry, a value 
Is placed Into the specified two-character data item during the execution of 
an OPEN, CLOSE, READ, WRITE, REWRITE, DELETE or START statement and before 
any applicable USE procedure is executed, to indicate to the COBOL program 
the status of that input-output operation. 

Status Key 1 

The leftmost character position of the FILE STATUS data item is known 
as statu© key 1 *iui is sul co indicate one of the following conditions upon 
ccanpletion of the Input-output operation, 

*0* - Successful Completion 

•I 1 - At End 

'2 f - Invalid Key 

*3* - Permanent Error 

*9' - Operating System Error Message 

The meaning of the above indications are as follows: 

0 - Successful Completion, The Input-output statement was 
successfully executed. 

1 - At End. The Format 1 READ statement was unsuccessfully executed 

as a result of an attempt to read a record when no next logical 
record exists In the file, 

2 - Invalid Key. The input-output statement was unsuccessfully 

executed as a result of one of the following: 

Sequence Error 
Duplicate Key 
No Record Found 
Boundary Violation 

3 - Permanent Error, The Input-output statement was unsuccessful as 

the result of an Input-output error, such as data check, parity 
error, or transmission error. 

9 - Operating System Error Message. The input-output statement was 
unsuccessfully executed as a result of a condition that ts 
specified by the Operating System Error Message number. This 
value is used only to indicate a condition not indicated by other 
defined values of status key L, or by specified combinations of 
the value of status key 1 and status key 2. 

Status Key 2 

The rightmost character position of the FILE STATUS data item is known 
as status key 2 and is used to further describe the results of the 
input-output operation. This character will contain a value as follows: 

it no further Information is available concerning the input-output 
operation, then status key 2 contains a value of , 0*. 
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When status key L contains a value of *2* indicating an INVALID KEY 
condition, status key 2 contains values to designate the cause of that 
condition as follows: 

1 - Indicates a sequence error for a sequentially accessed 

indexed file. The ascending sequence requirements of 
successive record key values have been viola ted (see The 
WRITE Statement later in this Chapter), or the record key 
value has been changed by the COBOL program between the 
successful execution of a READ statement and the execution of 
the next REWRITE statement for that file. 

2 - Indicates a duplicate key value. An attempt has been made to 

write or rewrite a record that would create a duplicate key 
in an indexed file. 

3 - Indicates no record found. An attempt has been made to 

access a record, identified by a key, and that record does 
not exist in the file, 

4 - Indicates a boundary violation. An attempt has been made to 

write beyond the externally defined boundaries of an indexed 
file. This is usually treated as a fatal erro». by Operating 
Systems. 

When status key 1 contains a value of *9* the value of status key 2 is 
the operating system error message number (for those operating systems 
which designate errors numerically). The CIS COBOL Operating Guide 
specific to your operating system contains details of tne status-key-2 
representation. 

Note that it is not possible to extract this number directly. 

Valid Combinations of Status Keys 1 and 2 

The valid permissible combinations of the value of status key 1 and 
status key 2 are shown in the following table. An ’X' at an intersection 
indicates a valid permissible combination. 



fm 

Status Key 1 

Status Key 2 



No Further 
Information 
(0) 

Sequence 

Error 

(1) 

Duplicate 

Key 

(2) 

No Record 
Found 
(3) 

Boundary 

Violation 

W 


Successful 
Completion (0) 

X 


X 



jUMHfc 

At End (1) 

X 






Invalid Key (2; 


X 

X 

X 

X 


Permanent 

Error (3) 

X 






Implementor 
Defined (9) 

Operating System Error Message Number 


The INVALID KEY Condition 










The INVALID KEY condition can occur as a result of the execution of a 
START, READ, WRITE, REWRITE or DELETE statement. For details of the causes 

of the condition see THE START STATEMENT, THE READ STATEMENT, THE WRITE 

STATEMENT, and THE DELETE STATEMENT later in this Chapter, 

When the INVALID KEY condition is recognised, the Operating System 
takes these actions in the following order: 

1. A value is placed into the FILE STATUS data item, if specified for this 

file, to indicate an INVALID KEY condition, (See 1-0 Status). 

2. If the INVALID KEY phrase is specified in the statement causing the 
condition, control is transferred to the INVALID KEY Imperative 
statement. Any USE procedure specified for this file is not executed. 

When the INVALID KEY condition occurs, execution of the input-output 
statement which recognised the condition is unsuccessful and the file 
is not affected. 


The AT END Condition 




The AT END condition can occur as a result of the execution of a READ 
statement. For details of the causes of the condition, see THE READ 
STATEMENT later in this Chapter. 
















ENVIRONMENT DIVISION IN THE INDEXED 1-0 MODULE 


INPUT-OUTPUT SECTION 

The File Control Paragraph 

Function 

The FILE-CONTROL paragraph names each file and allows specification of 
other file-related information. (See also appendix F in the CIS COBOL 
Operating Guide). 

General Format 

FILE-CONTROL , jfile-control-entry J,.. 

The File Control Entry 
Function 

The file control entry names a file and may specify other file-related 
information. 


General Format 


SELECT file-name 


ASSIGN TO iexternal-file-name-literalj 
(file-identifier > 

external-file-name-literaljj 


[_* If ile-identtf ier 
; ORGANIZATION IS INDEXED 

; ACCESS MODE IS 


SEQUENTIAL 
DYNAMIC 
RANDOM 

; RECORD KEY IS data-name-1 
[; FILE STATUS IS data-name-3] 
Syntax Rules 


!] 


1. The SELECT clause must be specified first in the file control entry* 
The clauses which follow the SELECT clause may appear in any order* 

2. Each file described i:i the Data Division must be named once and only 
once as file-name in the FILE-CONTROL paragraph. Each file specified 
in the file control entry must have a file description entry in the 
Data Division. 

3. If the ACCESS MODE clause is not specified, the ACCESS MODE IS 
SEQUENTIAL clause is implied. 
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4. Data-name-3 must be defined in the Data Division as a two-character 
data item of the category alphanumeric and must not be defined in the 
File Section. 

5. The data items referenced by data-name-1 must each be defined as a data 
item of the category alphanumeric within a record description entry 
associated with that file-name. 




ppm 


I* 


pi iP fty 


General Rules 

1. The ASSIGN clause specifies the association of the file referenced by 

file-name to a storage medium. See Appendix F in the CIS COBOL 
Operating Guide. The first assignment Subsequent 

assignments within any one ASSIGN clause .#re ■ lopaocUBQ^tat^ 

only. 

2. The ORGANIZATION clause specifies the logical structure of a file. The 
File organization is established at the t ime a file is created and 
cannot subsequently be changed. 

3. When the access mode is sequential, records in the file are accessed in 
the sequence dictated by the file organization. For indexed files this 
sequence is the order of ascending record key values. 

4. When the FILE STATUS clause is specified, a value will be moved by the 
operating system into the data item specified by data-name-3 after the 
execution of every statement that references that file either 
explicitly or implicitly. This value indicates the status of execution 
of the statement. (See 1-0 STATUS in this Chapter). 

6. If the access mode is random, the value of the record key data item 
indicates the record to be accessed. 

7. When the access mode is dynamic, records in the file may be accessed 
sequentially and/or randomly. (See general rules 4 and 6). 

8. The RECORD KEY clause specifies the record key for a file. The values 
of a record key must be unique among records of the file. This record 
key provides an access path to records in an indexed file. 

9. The data description of data-name-1 as well as relative locations 
within a record must be the same as that used when the file was 
created. 



The 1-0 Control Paragraph 
Function 

The I-0-C0NTR0L paragraph specifies the points at vhlch rerun Is to be 
established and the memory area vhlch la to be shared by different files. 

General Format 


file-name-1 i EVERY (integer-1 RECORDS OF file-name-2 
imp1 eweator-name* <integer-2 CLOCK-UNITS 

(condition-name 

OR file-name-3 [, f ile-name-4]... 1 ... 



2. File-name-1 must be a sequentially organized file. 


3. When either the integer-1 RECORDS clause or the integer-2 CLOCK-UNITS 
clause is specified. Implementor-name must be given in the RERUN 
clause. 

4. When multiple integer-1 RECORDS clauses are specified, no two of them 
may specify the same file-name-2. 

5. Only one RERUN clause containing the CLOCK-UNITS clause may be 
specified. 

6. More than one SAME clause (SAME AREA) may be Included in a program but 
a file-name roust not appear in more than one SAME AREA clause. 

7. The files referenced in the SAME AREA clause need not all have the same 
organization or access. 

General Rules 

2« JthjP: 3AH5 clEnxthf jyrflQ^iNui^wilerriin- purposes only. 


I-0-CONTROL 
; RERUN ON ; 

SAME AREA I 
Syntax Rules 
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DATA DIVISION IN THE INDEXED 1-0 MODULE 






IfiMMl 








p*$H 


FILE SECTION 

In a COBOL program the file description entry (FD) represents the 
hignest level of organisation in the File Section. The File Section header 
is followed by a file description entry consisting of a level indicator 
(FD) , a file-name and a series of independent clauses. The FD clauses 
specify the size of the logical and physical records, the presence or 
absence of label records, the value of implementor-defined label items, and 
the names of the data records which comprise the file. The entry itself ia 
terminated by a period. 

RECORD DESCRIPTION STRUCTURE 

A record description consists of a set of data description entries 
which describe the characteristics of a particular record. Each data 
description entry consists of a level-number followed by a data-name if 
required, followed by a series of independent clauses as required. A record 
description has a hierarchical structure and therefore the clauses used with 
an entry may vary considerably, depending upon whether or not it is followed 
by subordinate entries. The structure of a record description is defined in 
CONCEPTS OF LEVELS in Chapter 2 while the elements allowed in a record 
description are shown in THE DATA DESCRIPTION - COMPLETE ENTRY SKELETON in 
Chapter 3. 

THE FILE DESCRIPTION - COMPLETE ENTRY SKELETON 
Function 


The file description furnishes information concerning the physical 
structure, identification, and record names pertaining to a given file. 

General Format 


FD file-name 

r ; BLOCK CONTAINS integer-2( RECORDS )] 

L t CHARACTERS'J 

[; RECORD CONTAINS [integer-3 TO] integer-4 CHARACTERS] 

{ ; LABEL ( RECORD IS ) ( STANDARD f| 

f RECORDS ARE i f OMITTED ST 

;VALUE OF data-name-1 IS literal-1 


[,data-name-2 IS literal-2] ... 

DATA ( RECORD IS > data-name-3 [,data-name-4] 
j RECORDS ARE * 


Syntax Rules 


1 . 


The level indicator FD identifies the beginning of a file description 
and must precede the file-name. 



2 . 


3, 


The clauses which follow the name of the file are optional in many 
cases, and their order of appearance is immaterial. 


One or more record description entries must follow the file description 
entry. 


THE BLOCK CONTAINS CLAUSE 


Function 


The BLOCK CONTAINS clause specifies the size of a physical record. 
General Format 

BLOCK CONTAINS integer-2/RECORDS \ 

\CHARACTERSJ 


General Rule 



THE DATA RECORDS CLAUSE 
Function 


The DATA RECORDS clause serves only as documentation for the names of 
data records with their associated file. 


General Format 

DATA / RECORD IS \ data-name-1 [, data-name-2] ... 
\ RECORDS ARE/ 


Syntax Rules 

Data-name-1 and data-name-2 are the names of data records and must have 
01 level-number record descriptions, with the same names, associated 
with them. 


General Rules 


1. The presence of more than one data-name indicates that the file 
contains more than one type of data record. These records may be of 
differing sizes, different formats, etc. The order in which they are 
listed is not significant. 

2. Conceptually, all data records within a file share the same area. This 
is in no way altered by the presence of more than one type of data 
record within the file. 


THE LABEL RECORDS CLAUSE 


Function 


The LABEL RECORDS clause specifies whether labels are present. 
General Format 

LABEL t RECORD IS > ( STANDARD > 

i RECORDS ARE * i OMITTED ) 


General Rule 




THE RECORD CONTAINS CLAUSE 
Function 


The RECORD CONTAINS clause specifies the size of data records. 
General Format 


RECORD CONTAINS [integer-1 TO] integer-2 CHARACTERS 
General Rule 

The size of each data record is completely defined within the record 
description entry, therefore this clause is never required. 


THE VALUE OF CLAUSE 
Function 


The VALUE OF clause specialises the description of an item in the label 
records associated with a file. 

General Format 


VALUE OF data-namel IS literal-1 

[,dataname2 IS literal-2] ... 


General Rules 




2. A figurative constant may be substituted in the format above wherever a 
literal is specified. 
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PROCEDURE DIVISION IN THE INDEXED I-Q MODULE 


THE CLOSE STATEMENT 
Function 

The CLOSE statement terminates the processing of files. The LOCK 
phrase is for documentation: purposes 

General Format 

CLOSE file-name-1 [WITH LOCK] file-name-2 [WITH LOCK ]j .. * 

Syntax Rule 

The files referenced in the CLOSE statement need not all have the same 
organization or access. 

General Rulea 


1. A CLOSE statement may only be executed for a file in an open mode. 

2. The action taken if a file is in the open mode when a STOP RUN 
statement is executed is to close the file. The action taken for a file 
that has been opened in a called program and not closed In that program 
prior to the execution of a CANCEL statement for that program is to 
close the file 

3. If a CLOSE statement has been executed for a file, no other statement 
can be executed that references that file, either explicitly or 
implicitly, unless an intervening OPEN statement for that file is 
executed. 

4* Following the successful execution of a CLOSE statement, the record 
area associated with file-name is no longer available. The unsuccessful 
execution of such a CLOSE statement leaves the availability of the 
record area undefined. 






THE DELETE STATEMENT 




Function 


The DELETE statement logically removes a record from a file. 


General Format 


DELETE file-name RECORD 


(; INVALID KEY imperative-statement] 


Syntax Rules 


L. 


The INVALID KEY phase must not be specified for a DELETE statement 
which references a file which is in sequential access mode. 


2 . 


The INVALID KEY phrase must be specified for a DELETE statement which 
references a file which is not in sequential access mode and for which 
an applicable USE procedure is not specified. 


General Rules 






I 



I 



1. The associated file must be open in 1-0 mode at the time of the 
execution of this statement. (See THE OPEN STATEMENT later in this 
Chapter). 

2. For files in the sequential access mode, the last input-output 
statement executed for file-name prior to the execution of the DELETE 
statement must have been a successfully executed READ statement. The 
record that was accessed by that READ statement is logically removed 
from the file. 

3. For a file in random or dynamic access mode, the record identified by 
the contents of the record key data item associated with file-name is 
logicaxly removed from the file. If the file does not contain the 
record specified by the key, an INVALID KEY condition exists. (See THE 
INVALID KEY CONDITION in this Chapter). 

A. After the successful execution of a DELETE statement, the identified 
record has been logically removed from the file and can no longer be 
accessed. 

5. The execution of a DELETE statement does not affect the contents of the 
record area associated with file-name. 

6. The current record pointer is not affected by the execution of a DELETE 
statement. 

7. The execution of the DELETE statement causes the value of the specified 
FILE STATUS data item, if any, associated with file-name to be updated. 
(See 1-0 STATUS in this Chapter). 
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THE OPEN STATEMENT 


Function 


The OPEN statement Initiates the processing of files. It also performs 
checking and/or writing of labels and other input-output operations. 


General Format 


OPEN 


Syntax Rut *>9 


INPUT file-name-1 
OUTPUT file-name-3 
1-0 file -name-5 


[,file-name-2] 
[, file-name-4] 
[, file-name-6] 


1. The files referenced in the OPEN statement need not all have the same 
organization or access. 


General Rules 


1. The successful execution of the OPEN statement determines the 
availability of the file and results in the file being in an open mode. 

2. The successful execution of the OPEN statement makes the associated 
record area available to the program. 

3. Prior to the successful execution of an OPEN statement for a given 
file, no statement can be executed that references that file, either 
explicitly or implicitly. 

4. An OPEN statement must be successfully executed prior to the execution 
of any of the permissible input-output statements. In Table 7-1, 
Permissible Statements, , X* at an intersection indicates that the 
specified statement, used in the access mode given for that row, may be 
used with the indexed file organisation and the open mode given at the 
top of the column. 



jgm 










Table 7-1. Permissible Combinations of Statements and Open Modes for 
Indexed I/O 


File Access 
Mode 

Sequential 

Statement 

READ 

WRITE 

REWRITE 

START 

DELETE 

Open Mode 

Input 

Output 

Input-Output 

X 

X 

X 

X 

X 

X 

X 

Random 

READ 

X 


X 


WRITE 


X 

X 


REWRITE 



X 


START 





DELETE 



X 

Dynamic 

READ 

X 


X 


WRITE 


X 

X 


REWRITE 



X 


START 

X 


X 


DELETE 



X 


5. A file may be opened with the INPUT, OUTPUT and 1-0 phrases In the same 
program. Following the initial execution of an OPEN statement for a 
file, each subsequent OPEN statement execution for that same file must 
be preceded by the execution of a CLOSE statement for that file. 

6. Execution of the OPEN statement does not obtain or release the first 
data record. 

7. The assigned name in the select statement for a file is processed as 
follows: 

a. When Che INPUT phrase is specified, the execution of the OPEN 

statement causes the assigned name to be checked in accordance 

with the operating system conventions for opening files for input* 

b. When the OUTPUT phrase is specified, the execution of the OPEN 

statement causes the assigned name to be written in accordance 

with the operating system conventions for opening files for 
output. 

8. The file description entry for file-name-l t file-name-2, file-name-5, 
or file-naroe-6 must be equivalent to that used when this file was 
created. 

9. For files being opened with the INPUT or 1-0 phrase, the OPEN statement 

sets the current record pointer to the first record currently existing 
within the file. If no records exist in the file, the current record 
pointer is set such that the next executed Format 1 READ statement for 
the file will result in an AT END condition. C. flie does not 
eglat, INPUT will cause aft errsMg statusv ; ‘ ' • 




10 


. The 1-0 phrase permits the opening of a file for both input and output 



11. Upon successful execution of an OPEN statement with the OUTPUT phrase 
specified, a file is created. At that time the associated file 
contains no data records. If a file of the ’.rume namr; exists it will be 
df. ]r-1Fid, If write protected, ;m error occurs. 
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THE READ STATEMENT 






Function 


For sequential access, the READ statement makes available the next 
logical record from a file. For random access, the READ statement makes 
available a specified record from a mass storage file* 


General Format 
Format 1 

READ file-name [ NEXT ] RECORD [ INTO identifier] 
[;AT END imperative-statement] 


Format 2 

READ file-name RECORD [ INTO identifier ] 
[; INVALID KEY imperative-statement] 




Syntax Rules 

1. The INTO phrase must not be used when the input file contains logical 
records of various sizes as indicated by their record descriptions. 
The storage area associated with identifier and the storage area which 
is the record area associated with file-name must not be the same 
storage area. 

2. Format 1 must be used (without the NEXT phrase)for all files in 

sequential access mode. 

3. Format 2 is used for files in random access mode or for files in 

dynamic access mode when records are to be retrieved randomly. 

U. The NEXT phrase must be specified for files in dynamic access mode, 
when records are to be retrieved sequentially. 

5. The INVALID KEY phraae or the AT END phrase must be specified if no 

applicable USE procedure is specified for file-name. 




General Rules 

1. The associated file must be open in the INPUT or 1-0 mode at the time 
this statement is executed. (See THE OPEN STATEMENT in this Chapter). 

2. The record to be made available by a Format 1 READ statement is 
determined as follows: 

a. The record, pointed to by the current record pointer, is made 
available provided that the current record pointer was positioned 


1 
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by the START or OPEN statement and the record is still accessible 
through the path indicated by the current record pointer; if the 
record is no longer accessible, which may have been caused by the 
deletion of the record, the current record pointer Is updated to 
point to the next existing record in key sequence and that record 
is then made available. 

b* If tne current record pointer was positioned by the execution of a 
previous READ statement, the current record pointer is updated to 
point to the next existing record in the file in key sequence and 
then that record is made available. 

3. The execution of the READ statement causes the value of the FILE STATUS 
data item, if any, associated with file-name to be updated. (See 1-0 
Status in this Chapter). 

4. Regardless of the method used to overlap access time with processing 
time, the concept of the READ statement is unchanged in that a record 
is available to the object program prior to the execution of any 
statement following the READ statement. 

5. When the logical records of a file are described with more than one 
record description, these records automatically share the same storage 
area; this is equivalent to an implicit redefinition of the area. The 
contents of any data items which lie beyond the range of the current 
data record are undefined at the completion of the execution of the 
READ statement. 

6 . If the INTO phrase is specified, the record being read is moved from 
the record area to the area specified by identifier according to the 
rules specified for the MOVE statement. The implied MOVE does not 
occur if the execution of the READ statement was unsuccessful. Any 
subscripting or indexing associated with identifier is evaluated after 
the record has been read and immediately before it is moved to the data 
item. 

When the INTO phrase is used, the record being read is available in 
both the input record area and the data area associated with 
Identifier. 

8 . If, at the time of execution of a Format L READ statement, the position 
of current record pointer for that file is undefined, the execution of 
that READ statement Is unsuccessful. 

9. If, at the time of the execution of a Format 1 READ statement, no next 
logical record exists In the file, the AT END condition occurs, and the 
execution of the READ statement Is considered unsuccessful. (See 1-0 
Status in this Chapter). 

10. When the AT END condition is recognised the following actions are taken 
In the specified order: 

a. A value is placed into the FILE STATUS data item, if specified for 
this file, to indicate an AT END condition. (See 1-0 STATUS in 
this Chapter). 
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b. If the AT END phrase is specified in the statement causing the 
condition, control is transferred to the AT END imperative 
statement. Any USE procedure specified for this file is not 
executed. 

C. If the AT END phrase is not specified, then a USE procedure must 
be specified, either explictly or implicitly, for this file, and 
that procedure is executed. 

When the AT END condition occurs, execution of the input-output 
statement which caused the condition is unsuccessful. 

11. Following the unsuccessful execution of any READ statement, the 

contents of the associated record area and the position of the current 
record pointer are undefined. 

12. When the AT END condition has been recognised, a Format 1 READ 

statement for that file must not be executed without first executing 
one of the following: 

a. A successful CLOSE statement followed by the execution of a 
successful OPEN statement for that file. 

b. A successful START statement for that file. 

C. A successful Forjnat 2 READ statement for that file. 

13. For a file which dynamic access mode is specified, a Format 1 READ 

statement with the NEXT phrase specified causes the next logical record 
to be retrieved from that file as described in general rule 2 above. 

14. Execution of a Format 2 READ statement causes the value of the key that 
to be compared with the value contained in the corresponding data item 
of the stored records in the file, until the first record has an equal 
value is found. The current record pointer is positioned to this 
record which is then made available. If no record can be so 
identified, the INVALID KEY condition exists and execution of the READ 
statement is unsuccessful. (See The INVALID KEY Condition in this 
Chapter). 
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THE REWRITE STATEMENT 


Function 


The REWRITE statement logically replaces a record existing In a mass 
storage file. 

General Format 

REWRITE record-name [ FROM identifier] [.; INVALID KEY imperative-statement ] 
Syntax Rules 


1 . Reuuiu-name and identifier must not refer to the same storage area. 

2. Record-name Is the name of a logical record In the File Section of the 
Data Division. 

3* The INVALID KEY phrase must be specified In the REWRITE statement for 
files for which an appropriate USE procedure Is not specified. 


General Rules 

1. The file associated with record-name must be open In the X-0 mode at 

the time of execution of this statement. (See THE OPEN STATEMENT in 

this Chapter), 

2. For files In the sequential access mode, the last Input-output 

statement executed for the associated file prior to the execution of 
the REWRITE statement must have been a successfully executed READ 

statement. The Operating System logically replaces the record that was 
accessed by the READ statement. 

3. The number of character positions In the record referenced by 

record-name must be equal to the number of character positions In the 
record being replaced, 

4. The logical record released by a successful execution of the REWRITE 
statement is no longer available in the record area. 

5. The execution of a REWRITE statement with the FROM phrase Is equivalent 
to the execution of: 

MOVE Identifier TO record-name 

followed by the execution of the same REWRITE statement without the 
EROM phrase. The contents of the record area prior to the execution of 
the implicit MOVE statement have no effect on the execution of the 
REWRITE statement. 

6 . The current record pointer Is not affected by the execution of a 
REWRITE statement. 



7• The execution of the REWRITE statement causes the value of the. FILE 

STATUS data item, if any, associated with the file to be updated. (See 
1-0 Status ). 

8. For a file in the sequential access mode, the record to be replaced is 

specified by the value contained in the record key. When the REWRITE 
statement is executed the value contained in the record key data item 
of the record to be replaced must be equal to the value of the record 
key of the last record read from this file. 

9. For a file in the random or dynamic access mode, the record to be 

replaced is specified by the record key data item. 

10. The INVALID KEY condition exists when: 

a. The access mode is sequential and the value contained in the 

record key data item of the record to be replaced is not equal to 

the value of the record key of the last record read from this file 
or, 

b. The value contained in the record key data item does not equal 
that of any record stored in the file, or 

c. The updating operation does not take place and the data in the 
record area is unaffected. (See The INVALID KEY Condition in this 
Chapter), 
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THE START STATEMENT 


Function 

The START statement provides a basis for logical positioning within an 
Indexed file, for subsequent sequential retrieval of records. 


General Format 


START file-name 


i 

f IS EQUAL TO \ 


i IS = 

1 

) IS GREATER THAN ( 


IS > l data-name 

KEY j 

} IS NOT LESS THAN ] 


l IS NOT < / J 


[; INVALID KEY imperative-statement] 

NOTE: The required relational characters •>•, ’<* and ' = ' are not 

underlined to avoid confusion with other symbols such as *>' 
(greater than or equal to). 


Syntax Rules 

1. File-name must be the name of an indexed file. 

2. File-name must be the name of a file with sequential or dynamic access. 

3. The INVALID KEY phrase must be specified If no applicable USE procedure 
is specified for file-name. 

4. If file-name is the name of an indexed file, and if a KEY phrase is 

specified, data-name may reference a data item specified as the record 
key associated with file-name, or It may reference any data Item of 
category alpanumeric subordinate to the data-name of a data Item 
specified as the record key associated with file-name whose leftmost 

character position corresponds to the leftmost character position of 
that record key data Item* 


General Rules 


1. File-name must be open in the INPUT or 1-0 mode at the time that the 
START statement Is executed. (See THE OPEN STATEMENT In this Chapter). 

2. If the KEY phrase is not specified, 'IS EQUAL TO* is implied. 

3. The type of comparison spec if led by the relat iunal operator In the KEY 
phrase occurs between a key associated with a record in the file 
referenced by file-name and a data item as specified In general rulg 5. 
If file-name references an indexed file and the operands are of unequal 
size, comparison proceeds as though the longer one were truncated on 
the right such that its length is equal, to that of the shorter. All 
other nonnumeric comparison rules apply except that the presence of the 
PROGRAM COLLATING SEQUENCE clause will have no effect on the 
comparison. (See Comparison of Nonnumeric Operands). 



a. The current record pointer is positioned to the first logical 

record currently existing in the file whose key satisfies the 

comparison. 

b. If the comparison is not satisfied by any record in the file, an 
INVALID KEY condition exists, the execution of the START statement 
is unsuccessful, and the position of the current record pointer is 
undefined. (See The INVALID KEY Condition in this Chapter) 

A. The execution of the START statement causes the value of the FILE 

STATUS data item, if any, associated with file-name to be updated. (See 

1-0 Status ). 

5. If the KEY phrase is specified, the comparison described in general 

rule 3 uses the data item referenced by data-name. 

6 . If the KEY phrase is not specified, the comparison described in general 

rule 3 uses the data item referenced in the RECORD KEY clause 
associated with file-name. 
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THE USE STATEMENT 


Function 


The USE statement specifies procedures for input-output error handling 
that are in addition to the standard procedures provided by the input-output 
control system. 


General Format 


USE AFTER STANDARD 


EXCEPTION 

ERROR PROCEDURE ON 


I file-name-1 
INPUT 


OUTPUT 


1-0 


Syntax Rules 


I. A USE statement, when present, must Immediately follow a section header 
in the declaratives section and must be followed by a period followed 
by a space. The remainder of the section must consist of zero, one or 
more procedural paragraphs that define the procedures to be used. 


2 . 


The USE statement itself is never executed; it merely defines the 
conditions calling for the execution of the USE procedures. 


General Rules 


1. If the INVALID KEY phrase on the AT END phrase have not been specified 
in the input-output statements the designated procedures are executed 
by the input-output system after completing the standard input-output 
routine upon recognition of the INVALID KEY or AT END condition. 

2. After execution of a USE procedure, control is returned to the invoking 
routine. 

3. Within a USE procedure, there must not be any reference to any 

nondeclarative procedures. Conversely, in the nondeclarative portion 

there must be no reference to procedure-names that appear in the 

declarative portion, except that PERFORM statements may refer to a USE 
statement or to the procedures associated with such a USE statement. 

4. Within a USE procedure, there must not be the excecution of any 

statement that would cause the execution of a USE procedure that had 
previously been invoked and had not yet returned control to the 

invoking routine. 
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THE WRITE STATEMENT 


( Function 

The WRITE statement releases a logical record for an output or 
input-output file. 



General Format 


WRITE record-name [ FROM identif ier][; 


INVALID KEY imperative-statement] 


pm 


Syntax Rules 

1. Record-name and identifier must not reference the same storage area. 

2. The record-name is the name of a logical record in the File Section of 
the Data Division. 

3. The INVALID KEY phrase must be specified if an applicable USE procedure 
is not specified for the associated file. 




jfMRRRt 


General Rules 


1. The associated file must be open in the OUTPUT or 1-0 mode at the time 
of the execution of this statement. (See THE OPEN STATEMENT in this 
Chapter). 

2. The logical record released by the execution of the WRITE statement is 
no longer available in the record area unless the execution of the 
WRITE statement is unsuccessful due to an INVALID KEY condition. 

3. The results of the execution of the WRITE statement with the FROM 
phrase is equivalent to the execution of: 

a. The statement: 

MOVE identifier TO record-name 

according to the rules specified for the MOVE statement, followed 
by: 

b. The same WRITE statement without the FROM phrase. 

The contents of the record area prior to the execution of the 
implicit MOVE statement have no effect on the execution of this 
WRITE statement. 



After execution of Che WRITE statement is complete, the 

information in the area referenced by identifier is available, 
even though the information in the area referenced by record-name 
may not be. (See general rule 2 above). 

4. The current record pointer is unaffected by the execution of a WRITE 
statement. 

5. The execution of the WRITE statement causes the value of the FILE 

STATUS data item, if any, associated with the file Co be updated. (See 
I—0 Status in this Chapter). 

6 . The maximum record size for a file is established at the time the file 

is created and must not subsequently be changed. 

7. The number of character positions on a mass storage device required to 

store a logical record in a file may or may not be equal to the number 
of character positions defined by the logical description of that 
record in the.program. 

8 . The execution of the WRITE statement releases a logical record to the 
operating system. 

9. Execution of the WRITE statement causes the contents of the record area 
to be released. The Operating System utilizes the content of the 
record key in such a way that subsequent access of the record may be 
made based upon the specified record key. 

10. The value of the record key must be unique within the records in the 
file. 

11 . Che data item specified as the record key must be set by the program to 
the desired value prior to the execution of the WRITE statement. 

12. If sequential access mode is specified for the file, records must be 
released to the Operating System is ascending order of record key 
values. 

13. If random or dynamic access mode is specified, records may be released 
to the Operating System in any program-specified order. 

14. The INVALID KCY condition exists under the following circumstances: 

a. When sequential access mode is specified for a file opened in the 
output mode, and the value of the record key is not greater than 
the value of the record key of the previous record, or 
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b. When the file is opened in the output or 1-0 mode, and the value 
of the record key is equal to the value of a record key of a 
record already existing in the file, or 

c. When an attempt is made to write beyond the externally defined 
boundaries of the file. 

15. When the INVALID KEY condition is recognised the execution of the WRITE 
statement is unsuccessful, the contents of the record area are 
unaffected and the FILE STATUS data item, if any, associated with 
file-name of the associated file is set to a value indicating the cause 
of the condition. Execution of the program proceeds according to the 
rules stated under THE INVALID KEY condition (See also 1-0 Status in 
this Chapter). 


213 



CHAPTER 8 


SEQ1ENTATI0N 

INTRODUCTION TO THE SEGMENTATION MODULE 


The Segmentation module provides a capability to specify object program 
overlay requirements. 

Segmentation provides a facility for specifying permanent and 
independent segments. All sections with the same segment-number must be 
contiguous in the source program. All segments specified as permanent 
segments must be contiguous in the source program. 


GENERAL DESCRIPTION OF SEGMENTATION 


COBOL segmentation is a facility that provides a means by which the 
user may communicate with the compiler to specify object program overlay 
requirements. 

COBOL segmentation deals only with segmentation of procedures. As 
such, only the Procedure Division is considered in determining segmentation 
requiranents for an object program. 

ORGANIZATION 

Program Segments 

Although it is not mandatory, the Procedure Division for a source 
program is usually written as a consecutive group of sections, each of which 
is composed of a series of closely related operations that are designed to 
collectively perform a particular function. However, when segmentation is 
used, the entire Procedure Division must be in sections. In addition, each 
section must be classified as belonging either to the fixed portion or to 
one of the independent segments of the object program. 

Fixed Portion 


The fixed portion is defined as that part of the object program which 
is logically treated as if it were always in memory. This portion of the 
program is composed of fixed permanent segments* 

A fixed permanent segment is a segment in the fixed portion which 
cannot be overlaid by any other part of the program. 

Independent Segments 

An independent segment is defined as part of the object program which 
can overlay, and can be overlaid by another independent segment. An 
independent segment is in its initial state whenever control is transferred 
(either implicitly or explicitly) to that segment for the first time during 
the execution of a program. On subsequent transfers of control to the 
segment, an independent segment is also in its Initial state when: 


1. Control is transferred to that segment as a result of the Implicit 
transfer of control between consecutive statements from a segment with 
a different segment-number. 

2. Control Is transferred explicitly to that segment from a segment with a 
different segment-number (with the exception noted in paragraph 2 
below). 

On subsequent transfer of control to the segment, an independent 

segment is in its last-used state when: 

1, Control is transferred Implicitly to that segment from a segment with a 
different segment-number (except as noted in paragraph J.)• 

2. Control is transferred explicitly to that segment as the result of the 
execution of an EXIT PROGRAM statement. 


SEGMENTATION CLASSIFICATION 

Sections which are to be segmented are classified, using a system of 

segment-numbers and the following criteria: 

1, Logic Requiranents - Sections which must be available for reference at 
all times, or which are referred to very frequently, are normally 
classified as belonging to one of the permanent segments; sections 
which are used less frequently are normally classified as belonging to 
one of the independent segments, depending on logic requirements. 

2, Frequency of Use - Generally, the more frequently a section is referred 
to, the lower its segment-number, the less frequently it is referred 
to, the higher its segment-number, 

3, Relationship to Other Sections - Sections which frequently communicate 
with one another should be given the same segment-numbers 


SEGMENTATION CONTROL 

The logical sequence of the program is the same as the physical 
sequence except for specific transfers of control. Control may be 
transferred within a source program to any paragraph in a section; that is, 
it is not mandatory to transfer control to the beginning of a section. 



STRUCTURE OF PROGRAM SEGMENTS 


SEGMENT-NUMBERS 

Section classification is accomplished by means of a system of 
segment-numbers. The segment-number is included in the section header. 

GENERAL FORMAT 

section-name SECTION [segment-number] 

SYNTAX RULES 

1. The segment-number must be an integer ranging in value from 0 through 

99. 


2. If the segment-number is omitted from the section header, the 
segment-number is assumed to be 0. 

3. Sections in the declaratives must contain segment-numbers less than 50. 

general rules 

1. All sections which have the same segment-number constitute a program 
segment. All sections which have the same segment-number must be 
together in the source program. 

2. Segments with segment-number 0 through 49 belong to the fixed portion 
of the object program. All sections with segment-number 0 through 49 
must be together in the source program. 

3. Segments with segment-number 50 through 99 are independent segments. 
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RESTRICTIONS ON PROGRAM FLOW 


When segmentation Is used, the following restrictions are placed on the 
ALTER and PERFORM statement. 

THE ALTER STATEMENT 

A GO TO statement in a section whose segment-number is greater than or 
equal to 50 must not be referred to by an ALTER statement in a section with 
a different segment-number. 

THE PERFORM STATEMENT 

A PERFORM statement that appears In a section that is not in an 
independent segment can have within its range, in addition to any 

declarative sections whose execution is caused within that range, only one 

of the following: 

* Sections and/or paragraphs wholly contained in one or more 

non-independent segments. 

* Sections and/or paragraph wholly contained in a single independent 
segment. 

A PERFORM statement that appears in an independent segment can have 
within its range, in addition to any declarative sections whose execution is 
caused within that range, only one of the following: 

a. Sections and/or paragraphs wholly contained in one or more 

non-independent segments. 

b. Sections and/or paragraphs wholly contained in the same 
Independent segment as that PERFORM statement. 
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CHAPTER 9 


INTRODUCTION TO THE LIBRARY MODULE 

The Library module provides a capability for specifying text that is to 
be copied from a source user-library file. This is usually created using 
any suitable source text editor. 

CIS COBOL libraries consist of disk files that contain source to be 
made available to the compiler. The effect of the interpretation of the 
COPY statement is to insert text into the source program, where it will be 
treated by the compiler as part of the source program. 
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THE COPY STATEMENT 


FUNCTION 

The COPY statement incorporates text into a CIS COBOL source program. 


GENERAL FORMAT 


COPY 


text-name 

external-file-name-literal 


SYNTAX RULES 

1. Text-name defines a unique external file name which conforms to the 

rules for COBOL user-defined words. In a text-mame "lower case is 

translated into upper case. / is an 

alphanumeric literal enclosed In quotes that cohioraa to the operating 
system rules for filenames. «. 

2. The COPY statement must be preceded by a space and terminated by the 

separator period. 

3. A COPY statement may occur in the source program anywhere a 

character-string or a separator may occur except that a COPY statement 

must not occur within a COPY statement. 


GENERAL RULES 

1. The compilation of a source program containing COPY statement is 
logically equivalent to processing all COPY statements prior to the 
processing of the resulting source program. 

2. The effect of processing a COPY statement is that the library text 
associated with text-name is copied into the source program, logically 
replacing the entire COPY statement, beginning with the reserved word 
COPY and ending with the punctuation character period, inclusive. 

3. The library text is copied unchanged. 

A. the Wit rldentif lif is rat explicitly default Is -{to:; the 

.drive Is loaded,' 

5. The text produced as a result of the complete processing of a COPY 

statement must not contain a COPY statement. 





CHAPTER 10 


DEBUG AND INTERACTIVE DEBUGGING 


INTRODUCTION 

Standard ANSI COBOL debugging provides a means by which the user can 
describe the conditions under which procedures are to be 
monitored during the execution of the object program. 


The CIS COBOL Run-Time Debug Package Is an extension to ANSI COBOL that 
provides break-point facilities in the user's program.. Programs may be run 
from the start until a specified break-point to reached, when control is 
passed back to the user. At this point, data areas may be inspected or 
changed. ^ 


CIS COBOL RUN-TIKE DEBUG EXTENSION 

The Ruri^Eime debug package is entered ns an option by the user aC&::tbe user 
program is then tested line by line, paragraph by paragraph and so on as 
required. The commands to the package can reference procedure statements 
and data areas by means of a 4-digit hexadecimal code output by the compiler 
against each line of the compilation listing. Powerful macros of commands 
can be used to give very sophisticated debugging facilities. The precise 
details for using the package vary according to the host operating system, 
and are therefore contained in the CIS COBOL Operating Guide for your 


STANDARD ANSI COBOL DEBUG 


The decisions of what to monitor and what information to display are 
explicitly in the domain of the user. The COBOL Debug facility simply 
provides a convenient access to pertinent information. 


The features of the 

* A compile 

* An object 

* A USE FOR 

* A special 

* Debugging 


language that support the COBOL Debug module are: 
time switch — WITH DEBUGGING MODE, 
time switch. 

DEBUGGING statement, 
register — DEBUG-ITEM, 
lines. 


The reserved word DEBUG-ITEM is the name for a special register generated 
automatically by the compiler that supports the debugging facility. Only 
one DEBUG-ITEM is allocated per program. The names of the subordinate data 
items in DUBUG-ITEM are also reserved words. 









COM PILE-TIKE SWITCH 


The DEBUGGING MODE clause is written as part of the SOURCE-COMPUTER ' 

paragraph In the Environment Division* It serves as a complie-time switch 
over debugging statements written in the program. 

When DEBUGGING MODE is not specified in a program, all the debugging lines 
are compiled as if they were comment lines and their syntax is not checked* 


COBOL DEBUG OBJECT TIME SWITCH 

An object time switch dynamically activates the debugging code inserted by 
the compiler. This switch cannot be addressed in the program; it is 
controlled outside the COBOL environment. If the switch is f on*, the 
effects of any USE FOR DEBUGGING statements written in the source program 
are permitted. If the switch is 'off 1 , all the effects described in the USE 
FOR DEBUGGING Statement, are inhibited. Recompilation of the source program 
is not required to provide or take away this facility. 

The object time switch has no effect on the execution of the object program 
if the WITH DEBUGGING MODE clause was not specified in the source program at 
compile time. 

The switch is described in the CIS COBOL Operating Guide. 




ENVIRONMENT DIVISION IN COBOL DEBUG 
The WITH DEBUGGING MODE Clause 


Function 

The WITH DEBUGGING MODE clause indicates that all debugging sections and all frMfy 

debugging lines are to be compiled. If this clause is not specified, all 
debugging lines and sections are compiled as If they were comment lines. 


General Format 


SOURCE-COMPUTER . computer-name [WITH DEBUGGING MODE ]. 


General Rules 


1. If the WITH DEBUGGING MODE clause is specified in the SOURCE-COMPUTER 
paragraph of the Configuration Section, of a program, all USE FOR 
DEBUGGING statements and all debugging lines are compiled. 


2. If the WITH DEBUGGING MODE clause Is not specified In the 
SOIKCE-COMPUTER paragraph of the Configuration Section of a program, 
any USE FOR DEBUGGING statements and all associated debugging sections, 
and any debugging lines are compiled as if they were comment lines. 



PROCEDURE DIVISION IN COBOL DEBUG 


The USE FOR DEBUGGING Statement 

Function 

The USE FOR DEBUGGING statement identifies the user items that are to be 

monitored by the associated debugging section. 

General Format 

section-name SECTION [segment number], 

USE FOK debugging on| all* " procedures * " 1 1 

r procedure-name-21 
1 * ALL PROCEDURES J . . . 

Syntax Rules 

1. Debugging section(s), if specified, must appear together immediately 
after the DECLARATIVES header. 

2. Except in the USE FOR DEBUGGING statement itself, there must be no 
reference to any non-declarative procedure within the debugging 
section. 

3. Statements appearing outside of the set of debugging sections must not 
reference procedure-names defined within the set of debugging sections. 

4. Except for the USE FOR DEBUGGING statement itself, statements appearing 
within a given debugging section may reference procedure-names defined 
within a different USE procedure only with a PERFORM statement. 

5. Procedure-names defined within debugging sections must not appear 
within USE FOR DEBUGGING statements. 

6. Any given procedure-name may appear in only one USE FOR DEBUGGING 
statement and may appear only once in that statement. 

7. The ALL PROCEDURES phrase can appear only once in a program. 

8. When the ALL EROCEDURES phrase is specified, procedure-nane-1, 
procedure-name-2, ... must not be specified In any USE FOR DEBUGGING 
statement. 

9. References to the special register DEBUG-ITEM are restricted to 
references from within a debugging section. 

General Rules 

1. In the following general rules all references to procedure-name-1, 

apply equally to procedure-name-2. 
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2. Automatic execution of a debugging section is not caused by a statement 
appearing In a debugging section. 

3. When procedure-name-1 is specified in a USE FOR DEBUGGING statement 
that debugging section is executed: 

a. Immediately before each execution of the named procedure; 

b. Immediately after the execution of an ALTER statement which 
references procedure-name-1. 

4. The ALL PROCEDURES phrase causes the effects described in general rule 
3 to occur for every procedure-name in the program, except those 
appearing within a debugging section. 

5. The associated debugging section is not executed for a specific operand 
more than once as a result of the execution of a single statement, 
regardless of the number of times that operand is explicitly specified. 
In the case of a PERFORM statement which caused iterative execution of 
a referenced procedure, the associated debugging section is executed 
once for each iteration. 

Within an imperative statement, each individual occurrence of an 
imperative verb identifies a separate statement for the purpose of 
debugging. 

6* A reference to procedure-name-l as a qualifier does not constitute 
reference to that item for the debugging described in the general rules 
above. 

7. Associated with each execution of a debugging section is the special 
register DEBUG-ITEM, which provides information about the conditions 
that caused the execution of a debugging section. DEBUG-ITEM has the 
following implicit description: 

01 DEBUG-ITEM. 

02 DEBUG-LINE PICTURE IS X(6). 

02 FILLER PICTURE IS X VALUE SPACE. 

02 DEBUG-NAME PICTURE IS X(30). 

02 FILLER PICTURE IS X(19) VALUE SPACE. 

02 DEBUG-CONTENTS PICTURE IS X(n). 




fr*3, 
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8. Prior to each execution of a debugging section, the contents of the 
data item referenced by DEBUG-ITEM are space-filled. The contents of 
data items subordinate to DEBUG-ITEM are then updated, according to the 
following general rules, immediately before control is passed to that 
debugging section. The contents of any data item not specified in the 
following general rules remains spaces. 

Updating is accomplished in accordance with the rules for the MOVE 
statement, the sole exception being the move to DEBUG-CONTENTS when the 
move is treated exactly as if it was an alphanumeric to alphanumeric 
elementary move with no conversion of data from one form of internal 
representation to another. 

9. The contents of DEBUG-LINE is the relevant COBOL source line number. 
This provides the means of identifying a particular source statement. 

10. DEBUG-NAME contains the first 30 characters of the name that caused the 
debugging section to be executed. 

Subscripts/indices, if any, are c«t entered into DEBUG-NAME. 

11. DEBUG-CONTENTS is a data item that is large enough to contain the data 
required by the following general rules. 

12. If the first execution of the first nondeclarative procedure in the 
program causes the debugging section to be executed, the following 
conditions exist: 

a. DEBUG-LINE identifies the first statement of that procedure. 

b. DEBUG-NAME contains the name of that procedure. 

C. DEBUG-CONTENTS contains 'START PROGRAM'. 

13. If a reference to procedure-name-1 in an ALTER statement causes the 
debugging section to be executed, the following conditions exist: 

a. DEBUG-LINE identifies the ALTER statement that references 

procedure-name-1• 

b. DEBUG-NAME contains procedure-name-1. 

C. DEBUG-CONTENTS contains the applicable procedure-name associated 
with the TO phrase of the ALTER statement. 

14. If the transfer of control associated with the execution of a GO TO 
statement causes the debugging section to be executed, the following 
conditions exist: 

a. DEBUG-LINE identifies the GO TQ statement whose execution 

transfers control to procedure-name-1. 

b. DEBUG-NAME contains procedure-name-1. 



15. If the transfer to control from the control mechanism associated with a 
PERFORM statement causes the debugging section associated with 
procedure-name-1 to be executed, the following conditions exist: 
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a. DEBUG-LINE identifies the PERFORM statement that references 
procedure-name 1. 

b. DEBUG-NAME contains procedure-name-1. 

c. DEBUG-CONTENTS contains 'PERFORM LOOP 1 . 

16. If procedure-name-1 is a USE procedure that is to be executed, the 
following conditions exist: 

a. DEBUG-LINE identifies the statement that causes execution of the 
USE procedure. 

b. DEBUG-NAME contains procedure-name-1. 

c. DEBUG-CONTENTS contains 'USE PROCEDURE*. 

17. If an implicit transfer of control from the previous sequential 
paragraph to procedure-name-1 causes the debugging section to be 
executed, the following conditions exist: 

a. DEBUG-LINE identifies the previous statement. 

b. DEBUG-NAME contains procedure-name-1. 

c. DEBUG-CONTENTS contains 'FALL THROUGH*. 




DEBUGGING LINES 

A debugging line is any line with a 'D' in the indicator area of the line. 
Any debugging line that consists solely of spaces from margin A to margin R 
is considered the same as a blank line. 

The contents of a debugging line must be such that a syntactically correct 
program is formed with or without the debugging lines being considered as 
comment lines. 

A debugging line will be considered to have all the characteristics of a 
comment line, if the WITH DEBUGGING MODE clause is not specified in the 
SOURCE-COMPUTER paragraph. 

Successive debugging lines are allowed. Continuation of debugging lines is 
permitted, except that each continuation line must contain a 'D 1 in the 
indicator area, and character-strings may not be broken across two lines. 

A debugging line is only permitted in the program after the OBJECT-COMPUTER 
paragraph. 


km#, 
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CHAPTER 11 


INTER HIOGRAM COMMUNICATION 

INTRODUCTION TO THE INTER-PROGRAM COMMUNICATION MODULE 


The Inter-Prograra Communication module provides a facility by which a 
program can communicate with one or more programs. This provides a 
programmer with a modular programming capability. Each module when CALLed 
Is loaded dynamically by the Run Time System. Communication Is provided by: 

* The ability to transfer control from one program to another within 
a run uni •. 

* The ability for both programs to have access to the same data 
items. 


DATA DIVISION IN THE INTEK-EROCRAM COMMUNICATION MODULE 
LINKAGE SECTION 

The Linkage Section in a program is meaningful if and only if the object 
program is to function under the control of a CALL statement, and the CALL 
statement in the calling program contains a USING phrase. 

The Linkage Section is used for describing data that is available through 
the cal ling program but is to be referred to in both the cal ling and the 
called program. No space is allocated in the program for data items 
referenced by data-naraes in the Linkage Section of that program. Procedure 
Division references to these data items are resolved at object time by 
equating the reference in the called program to the location used in the 
calling program. In the case of index-names, no such correspondence is 
established. Index-names in the called and calling program always refer to 
separate indices. 

Data items defined in the Linkage Section of the called program may be 
referenced within the Procedure Division of the called program only if they 
are specified as operands of the USING phrase of the Procedure Division 
header or are subordinate to such operands, and the object program is under 
the control of a CALL statement that specifies a USING phrase. 

The structure of the Linkage Section is the same as that previously 
described for the Working-Storage Section, beginning with a section header, 
followed by data description entries for noncontiguous data items and/or 
record description entries. 

Each Linkage Section record-name and noncontiguous item name must be unique 
within the called program since it cannot be qualified. Data items defined 
in the Linkage Section of the cal led program must not be associated with 
data items defined in the Report Section of the calling program. 

Of those items defined in the Linkage Section only data-name-1, data-name-2, 
... in the USING phrase of the Procedure Division header, data items 
subordinate to these data-naraes, and condition—names and/or 
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Index-names associated with such data-names and/or subordinate data Items, 
may be referenced In the Procedure Division. 

Noncontiguous Linkage Storage 

Items In the Linkage Section that bear no hierarchic relationship to one 
another need not be grouped Into records and are classified and defined as 
noncontiguous elementary Items. Each of these data items Is defined In a 
separate data description entry which begins with the special level-number 
77. 

The following data clauses are required in each data description entry: 

* Level-number 77 

* Data-name 

* The PICTURE clause or the USAGE IS INDEX clause 

Other data description clauses are optional and can be used to complete the 
description of the item if necessary. 



PROCEDURE DIVISION IN THE INTER-PROGRAM COMMUNICATION MODULE 


|*w»i 

|H 

pm 


THE PROCEDURE DIVISION HEADER 

The Procedure Division is identified by and must begin with the following 
header: 

PROCEDURE DIVISION [ USING data-name-l [, data-name-2] ...] 

The IKING phrase is present if and only if the object program is to function 
under the control of a CALL statement, and the CALL statement in the calling 
program contains a USING phrase. 

Each of the operands In the USING phrase of the Procedure Division header 
must be defined as a data item in the Linkage Section of the program in 
which this header occurs, and it must have a 01 or 77 level-number. 

Within a called program. Linkage Section data items are processed according 
to their data descriptions given in the called program. 

When the USING phrase is present, the object program operates as if 
data-name-l of the Procedure Division header in the called program and 
data-name-l in the USING phrase of the CALL statement in the calling program 
refer to a single set of data that is equally available to both the called 
and calling programs. Their descriptions must define an equal number of 
character positions; however they need not be the same name. In like 
manner, there is an equivalent relationship between data-name-2, in the 

USING phrase of the called program and data-name-2, ...» in the USING phrase 
of the CALL statement in the calling program. A data-name must not appear 
more than once in the USING phrase in the Procedure Division header of the 
called program; however, a given data-name may appear more than once in the 
same USING phrase of a CALL statement. 




THE CALL STATEMENT 


Function 

The CALL statement causes control to be transferred from one object program 
to another, within the run unit. 

General Format 

Format 1 




CALL 1 literal-1 r M [USING data-name-1 [, data-name-2] ...] 

[ON OVERFLOW imperative-statement] 

Format 2 

Mk USS» 1. «*t 

Syntax Rules 

1. Literal-1 must be a nonnumeric literal. 

2. Identifier-1 must be defined as an alphanumeric data item usage 
display. 

3. The USING phrase is included in the CALL statement only if there is a 
USING phrase in the Procedure Division header of the called program and 
the number of operands in each USING phrase must be identical. 

4. Each of the operands in the USING phrase must have been defined as a 
data item in the File Section, Working-Storage Section, or Linkage 
Section, and must have a level-number of 01 or 77. 

5. «tt 1b4 *1 i MOUCHMcCA lit^ftlb 

6. must be dittos u » slpbwrte data wfsto * 

niwrte value, CALL 6t CAU Mff Mi* U dfrfirt** is 

diM Alffiaruofttlc, n4 wife ©on La in in* a wrU valmu 

General Rules 


1. The program whose name is specified by the value of literal-1 or 
identifier-1 is a called intermediate code module, literal-2 is a 
called run time subroutine; the program in which the CALL statement 
appears is the calling program. 

2. The execution of a CALL statement causes control to pass to the called 
program. 
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3. In format 1, a called intermediate code module is loaded from disk the 
first time it is called within a run-unit and the first time it is 
called after a CANCEL to the called program. 

On all other entries into the called program, the state of the program 
remains unchanged from its state when last executed. This includes all 
data fields, the status and positioning of all files, and all alterable 
switch settings. 

4. lit format 2, a called 
• which it last existed* ;. 

5. If during the execution of a CALL statement, it is determined that the 

available portion of run-time memory is incapable of accomodating the 
program specified in the CALL statement, the next sequential 
instruction is executed. If ON OVERFLOW has been specified, the 

a£>s*uci<ii.ttu imperative statement is executed before the next instruction 
is executed. 

6. Called programs may contain CALL statements. However, a called program 
must not contain a call statement that directly or indirectly calls the 
calling program. 

7. The data-names, specified by the USING phrase of the CALL statement, 

indicate those data items available to a calling program that may be 
referred to in the called program. The order of appearance of the 
data-names in the USING phrase of the CALL statement and the USING 

phrase in the Procedure Division header is critical. Corresponding 

data-names refer to a single set of data which is available to the 

called and calling program. The correspondence is positional, not by 
name. In the case of index-names, no such correspondence is 

established. Index-names in the called and calling program always 

refer to separate indices. 

8. The CALL statement may appear anywhere within a segmented program. 

Therefore, when a CALL statement appears in a section with a 

segment-number greater than or equal to 50, that segment is in its last 
used state when the EXIT PROGRAM statement returns control to the 

calling program. 


run time subroutine is alyays in the state in: 
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THE CANCEL STATEMENT 




Function 

The CANCEL statement releases the memory areas occupied by the referred to 
program. 




General Format 


CANCEL 


iidentifier-1) 
* literal-1 » 


[i 


identifier-2 

literal-2 





Syntax Rules 

1. Literal-1, literal-2, .... must each be a nonnumeric literal. 

2. Identifier-1, identifier-2, .... must each be defined as an 
alphanumeric data item such that its value can be a program name. 






General Rules 

1. After the execution of a CANCEL statement, the program referred to 
ceases to have any logical relationship to the run unit in which the 
CANCEL statement appears. A subsequently executed CALL statement 
naming the same program will result in that program being initiated in 

its initial state. The memory areas associated with the named programs fmmsit 

are released so as to be made available for disposition 
operating system. 

2. A program named in the CANCEL statement must not refer to any 
that has been called and has not yet executed an EXIT 
statement. 

3. A logical relationship to a cancelled subprogram is established 
execution of a subsequent call statement. 

4. A called program Is cancelled either by being referred to 
operand of a CANCEL statement or by the termination of the run 
which the program is a member. 

5. No action Is taken when a CANCEL statement Is executed naming a 
that has not been called in this run unit or has been called and is at 
present cancelled. Control passes to the next statement. 


by the 




program 

PROGRAM 


iMi) 


only by 


as the 
unit of 




program 
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THE EXIT PR. OCR AM STATEMENT 


Function 


The EXIT WO(RAM statement marks the logical end of a called program. 


General Format 


EXIT PRO (RAM 


Syntax Rules 

1. The EXIT PROGRAM statement must appear In a sentence by Itself. 

2. The EXIT PROGRAM sentence must be the only sentence In the paragraph. 


General Rule 


An execution of an EXIT HtOCRAM statement in a called program causes control 
to be passed to the calling program. Execution of an EXIT fttOGRAM statement 
in a program which is not called behaves as if the statement were an EXIT 
statement. (See THE EXIT STATEMENT in Chapter 3). 
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CHAPTER 12 


PROGRAMMING TECHNIQUES, USEFUL HINTS AND PROGRAM SIZING 
PROGRAMMING TECHNIQUES 

Although COBOL Is written in an essentially free form, the user will 
nevertheless obtain many advantages from a few self-imposed disciplines. It 
is suggested that these should include the following: 

1. Use of the first 256 bytes of working-storage for variables which are 
frequently referenced will produce more compact and efficient code. 

2. Use subscripts as sparingly as possible because each subscript has a 
storage requirement approximately equal to the size of a normal 
instruction. 

3. For ACCEPT and DISPLAY the compiler generates one instruction per 
elementary item of the data-name being displayed/accepted. Therefore 
redefine a group of fields as a single field for DISPLAY whenever 
possible and avoid unnecessary numbers of small fields in ACCEPT. 

4. Use FILLER Instead of a data-name for any elementary field not 
referenced explicitly because the word FILLER is compacted to one 
character in the Data Dictionary. 

5. Keep the number of digits in numeric fields as small as possible. 

6. Whenever possible move a group instead of several elementary moves. 

7. CIS COBOL provides for values greater than decimal 99 to be stored in a 
nonnumeric field of one character, 

e.g, PIC X "7F" 

This is an extension to the ANSI COBOL standard X3.23 (1974). (See under 
Nonnumeric Literals in Chapter 2). 

Note, however, that the rules for moving such a field comply with the ANSI 
standard in that the contents will be truncated If over decimal 99. 

If your operating system returns an error number greater than 99 in the 
error Status Key 2 byte ( see 1-0 Status In chapters 5,6 and 7 ) careful 
redefinition of data-items is required if you wish to display this status 
with its correct decimal value. See the appendix that describes disk files 
in your operating system specific CIS COBOL Operating Guide for a sample 
program. 

US EFUL HINTS 

When writing interactive programs the following facilities of CIS COBOL 
should be remembered: 

1. By use of the CURSOR IS facility and the ACCEPT statement it is easy to 
program conditionally depending on the cursor position after a menu 
type of prompt. The operator need then only move the cursor to the 
option required to reply to the prompt, or Just press RETURN in the 
default case. 



2. By use of the ACCEPT FROM CONSOLE facility it is easy to pass 

parameters to your program via the Run command line. See THE ACCEPT 
STATEMENT in Chapter 3. 

3. Remember always to end your CIS COBOL program with a period. Invalid 
intermediate code can result if this final period is missing. 

4. Note that the data part of an indexed sequential file may be accessed 
relatively. However, the first record (relatively) is inaccessible, 
since relative file access begins at record number L, as specified in 
the ANSI COBOL standard X3.23(L974). 

5. Never define a Linkage Section in the main program, only in sub¬ 

programs. The CIS COBOL Compiler will not treat such a Linkage Section 
as nn error but it can result in memory content corruption at run time. 

6. Be careful to specify literal filenames in Select statements 

in quotation marks ("...."). This is the only indication to the 
compiler that a literal filename is desired. 

(Filename identifiers are not declared in the Working Storage Section 
or elsewhere explicitly). The omission of quotation marks where 

required will result in an undefined file being accessed at run time. 
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Table 12-1. Data Dictionary Entry Sizing 


User-defined name 

Number of Bytes ^ 

File-name 

18 + n 

Record-name 

8 + n 

Key-name 

8 + n 

Status-name 

8 + n 

Paragraph-name 

6 + n 

Data-name Group 

8 + n ; 

Alphanumeric < 32 characters 

7 * n 2 

Alphanumeric > 32 characters 

8 + n 2 

Numeric integer 

7 + n 2 

Numeric non integer 

8 + n * 

Numeric edited 

7 + n + x 


1 n = number of characters in user-defined name. 

For a FILLER, n * 1. 

x - number of characters in Picture, after coalescing repetitions. 

e.g. 9999.9 =3 bytes 

9 (4) .9 =3 bytes 

Z (2) 9 (4) . 9 (3)= 4 bytes 

2 Subtract l byte if item is in the first 256 bytes of 
Working-Storage. 

Add 4 bytes If item has an OCCURS clause associated with it. 

Add 2 bytes if item is subordinate to an item described with 
OCCURS. 




M5 

*1 










jjfSWf 




p^1 

*.-■'— a. 
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APPENDIX A 
RESERVED WORD LIST 




This appendix contains a full list of COBOL and CIS COBOL reserved 
words. A shaded reserved word is a CIS COBOL extension to ANSI COBOL. 




The / 
as is 


symbol denotes that the text up to that point is a reserved word, 
the whole word. 


e. g,, In INDEX/ED, INDEX and INDEXED are reserved wo rds i-n SPACE/S 
SPACE and SPACES are reserved words. 





RESERVED WORD LIST 


ACCEPT 

ENVIRONMENT 

NEGATIVE 

SORT 

ACCESS 

EQUAL 

NEXT 

sort-merge 

ADD 

ERROR 

NOT 

SOURCE-COMPUTER 

ADVANCING 

EVERY 

NUMERIC 

SPACE/S 

AFTER 

EXCEPTION 


SPECIAL-NAMES 

ALL 

EXCESS-3 

OBJECT-COMPUTER 

STANDARD 

ALPHABETIC 

EXCLUSIVE 

OCCURS 

STANDARD-1 

ALTER 

EXIT 

OF 

START 

AND 

EXTEND 

OFF 

STATUS 

ARE 


OMITTED 

STOP 

AREA 

FD 

ON 

SUBTRACT 

ASCENDING 

FILE 

OPEN 

SWITCH 

ASSIGN 

FILE-CONTROL 

OR 

SYNC/HRONIZED 

AT 

FILLER 

ORGANIZATION 

S'YSIN 

AUTHOR 

FIRST 

OUTPUT 

3Y SOUT• 

AUTOMATIC 

FOR 

OVERFLOW 



FROM 


TAB 

BEFORE 


PAGE 

TABLE 

BLANK 

GIVING 

PERFORM 

TALLYING 

BLOCK 

GO 

PIC/TURE 

THAN 

BY 

GREATER 

POSITIVE 

THEN 



PROCEDURE/S 

THROUGH 

CALL 

HIGH-VALUE/S 

PROCEED 

THRU 

CANCEL 


PROGRAM 

TIMES 

CHARACTER/S 

I-O/-CONTROL 

PROGRAM-ID 

TO 

CLOCK-UNITS 

IDENTIFICATION 


TRAILING 

CLOSE 

IF 

QUOTE/S 

TYPE 

COBOL 

INDEX/ED 



CODE-SET 

INITIAL 

RANDOM 

UNIT 

COLLATING 

INPUT/-OUTPUT 

RD 

UNTIL 

COMMA 

INSPECT 

READ 

UP 

COMMIT 

INSTALLATION 

RECORD/S 

UPON 

COMP/UTATIONAL/-3 

INTO 

REDEFINES 

USAGE 

CONFIGURATION 

INVALID 

REEL 

USE 

CONSOLE 

IS 

RELATIVE 

USING 

CONTAINS 


RELEASE 


COPY 

JUST/IFIED 

REMAINDER 

VALUE/S 

CRT 


REPLACING 

VARYING 

CRT-UNDER 

KEPT 

RERUN 


CURRENCY 

KEY 

RETURN 

WHEN 

CURSOR 


REWRITE 

WITH 


LABEL 

RIGHT 

WORDS 

DATA 

LEADING 

ROLLBACK 

WORKING-STORAGE 

DATE-COMPILED 

LEFT 

ROUNDED 

WRITE 

DATE-WRITTEN 

LESS 

RUN 


DEBUGGING 

LIMIT/S 


ZERO/ES or S 

DECIMAL-POINT 

LINE/S 

SAME 


DECLARATIVES 

LINKAGE 

SD 

. (period) 

DELETE 

LOCK 

SECTION 

( 

DEPENDING 

LOW-VALUE/S 

SECURITY 

- 

DESCENDING 


SEGMENT 

) 

DISPLAY 

MANUAL 

SEGMENT-LIMIT 

; 

DIVIDE 

MEMORY 

SELECT 

+ 

DIVISION 

MERGE 

SENTENCE 


DOWN 

MODE 

SEPARATE 

< 

DYNAMIC 

MODULES 

SEQUENCE 



MOVE 

SEQUENTIAL 

> 

ELSE 

MULTIPLY 

SET 

/ 

END 


SIGN 

* 

ENTER 

NATIVE 

SIZE 
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Note that the Level II COBOL product contains the following additional 
reserved words. If you wish to ensure that your CIS COBOL programs are 
upward compatible with Level II COBOL do not use these words as 
user-names. 

ALTERNATE TAPE 

ALSO TERMINAL 

BOTTOM TEXT 

COMMUNICATION TIME 

COMPUTE TOP 

CORR/ESPONDING UNSTRING 

COUNT 
DATE 
DAY 

DEBUG-CONTENTS 

DEBUG-ITEM 

DEBUG-LINE 

DEBUG-NAME 

DEBUG-SUB-1 

DEBUG-SUB-2 

DELIMITED 

DELIMITER 

DESTINATION 

DISABLE 

DUPLICATES 

ENABLE 

END-OF-PAGE 

EOP 

ESI 

EMI 

EG I 

FOOTING 

IN 

KEPT 

LENGTH 

LINAGE/-COUNTER 
MESSAGE 
MULTIPLE 
NO 

OPTIONAL 
POINTER 
POSITION 
QUEUE; 

RECEIVE 

REMOVAL 

RENAMES 

RESERVE 

RETURN 

REVERSED 

REWIND 

SEARCH 

SEND 

STRING 

SUB-QUEUE-1 

SUB-QUEUE-2 

SUB-QUEUE-3 

SYMBOLIC 


fiS} 

j 



■mf- 





jiw 

E. 




ji^r 



jpw 

JPW 
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APPENDIX B 


CHARACTER SETS AND COLLATING SEQUENCE 


ASCII 

HEX 

COBOL 

NUL 

00 

X 

SOH 

01 

X 

STX 

02 

X 


03 

X 


04 

X 

■ 

warn 


' ; \ 

1 





BS 

■ 


HT 



LF 

9n^^9 


VT 



FF 

0C 

X 

CR 

0D 

X 

SO 

0E 

X 

SI 

0F 

X 

OLE 

10 

X 

DC I 

11 


DC 2 

12 


DC 3 

13 


DC4 

14 

X 

NAK 

15 

X 

SYN 

16 

X 

era 

17 

X 

CAN 

18 

X 

£.'! 

19 

X 

SUB 

1A 

X 

ESC 

IB 

X 

FS 

1C 

X 

GS 

ID 

x 

*S 

IE 

X 

US 


X 

space 

20 


! 

21 

X 

it 

22 


if 

23 

X 

$ 

24 


% 

i 25 

X 

& 

26 

X 

i 

27 

X 

( 

28 


) 

29 


* 

2A 


+ 

2B 


» 

2C 


- 

2D 


. 

iJSS_ 



ASCII 

HEX 

COBOL 

/ 

2F 


0 

30 


1 

31 


2 

32 


3 

33 


4 

34 


5 

35 


6 

36 


7 

37 


8 

38 


9 

39 


: 

3A 


> 

3B 


< 

3C 


= 

3D 


> 

3E 


? 

3F 


@ 


X 

A 

41 


B 

42 


C 

43 


D 

44 


E 

45 


F 

46 


G 

47 


H 

48 


I 

49 


J 

4A 


K 

4B 


L 

4C 


M 

4D 


N ! 

4E 


0 i 

4F 


P 



Q 

■ ] 1 


R 


■ 

S 

9 1 


T 

■ . 


u ! 

■ 


V 

■ 9 

■ 

w 

Ik 



Oi 



19 



EM 



|9 

1J ■ 


II 



Bl 



ASCII 

HEX 

COBOL 


5E 

X 


5F 

X 


60 

X 

a 

61 


b 

62 


c 

63 


d 

64 


e 

65 


f 

66 


S 

67 


■ 

68 



69 



6A 



6B 


i 

6C 


m 

6D 


n 

6E 


o 

lJF_ 


P 


■ 

q 


■ 

r 


■ 

s 


■ ■ 

t 


■ 

u 



V 


■ 

w 


1 

X 



y 

E9p 


z 

K29■ 



7B 

X 


7C 

X 


7D 

X 


7E 

X 

DEL 

7F 

X 






*■*! 
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APPENDIX C 


GLOSSARY 


INTRODUCTION 


The terms in this Chapter are defined in accordance with their meaning as 
used in this document describing CIS COBOL and may not have the same meaning 
for other languages. 

These definitions are also intended to be either reference material or 
introductory material to be reviewed prior to reading the detailed language 
specifications that are contained in this manual. For this reason, these 
definitions are, in most instances, brief and do not include detailed 
syntactical rules. 

DEFINITIONS 


Access Mode . The manner in which records are to be operated upon within a 
file 

Actual Decimal Point . The physical representation, using either of the 
decimal point characters . (period) or , (comma) of the decimal 
point position in a data item. 

Alphabet-Name . A user-defined word in the SPECIAL-NAMES paragraph of the 
Environment Division that assigns a name to a specific character 
set and/or collating sequence. 

Alphabetic Character . A character that belongs to the following set of 
letters: A ,B ,C ,D ,E ,F ,G ,H ,1 ,J ,K ,L ,M ,N ,0 ,P ,Q ,R ,S ,T ,U ,V ,W ,X ,Y ,Z and 
the space. Also a*b, q r ^*vyw*::' 

x*y and z which are converted to their upper case- equivalents^.'...::::;^ 

Alphanumeric Character . Any character in the computer's character set. 

Arithmetic Expression . An arithmetic expression can be an identifier or a 
numeric elementary item, a numeric literal, such identifiers and 
literals separated by arithmetic operators, two arithmetic 
expressions separated by an arithmetic operator, or an arithmetic 
expression enclosed in parentheses. 

Arithmetic Operator . A single character, or a fixed two-character combin¬ 
ation, that belongs to the following set: 

Character Meaning 

+ Addition 

Subtraction 

* Multiplication 

/ Division 

Ascending Key . A key upon the values of which data is ordered starting with 
the lowest value of key up to the highest value of key in 
accordance with the rules for comparison of the data items. 


69 ^ 
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Assumed Decimal Point . A decimal point position which does not involve the 
existence of an actual character in a data item. The assumed 
decimal point has logical meaning but no physical representation. 


At End Condition . A condition caused in one of two circumstances: 

1. During the execution of a READ statement for a sequentially 
accessed file, 

2. During the execution of a RETURN statement when no next 
logical record exists for the associated sort or merge file. 

Called Program . A program which is the object of a CALL statement combined 
at run time with the calling program to produce a run unit. 


Calling Program . A program which executes a CALL to another program. 
Character . The basic indivisible unit of the language. 


Character Set (CIS COBOL) . The complete CIS COBOL character set consists 
of all characters listed below: 

Character Meaning 

0,1,...,9 Numeric digit 

Uppercase alphabetic 
a,b t; . ** Lowercaaaalphabetic 


* 

/ 

$ 


( 

) 

> 

< 


Space (Blank) 

Plus Sign 
Minus Sign 
Asterisk 

Stroke (Virgule or Slash) 

Equal Sign 
Currency Sign 
Comma 
Semicolon 

Period (Decimal Point, Fullstop) 

Quotation Mark 

Left Parenthesis 

Right Parenthesis 

Greater Than Symbol 

Less Than Symbol 


Character Position . A character position is the amount of physical storage 
required to store a single standard data format character 
described as usage in DISPLAY. Further characteristics of the 
physical storage are defined by the implementor. 

Character-String . A sequence of contiguous characters which form a 
CIS COBOL word, a literal, a PICTURE character-string or a 
c oraraent-en try. 

Class Condition . The proposition, for which a truth value can be determined, 
that the content of an item is wholly alphabetic or is wholly 
numeric. 
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Clause , A clause is an ordered set of consecutive CIS COBOL character- 
strings whose purpose is to specify an attribute of an entry. 

Collating Sequence . The sequence in which the characters that are 
acceptable in a computer are ordered for purposes of sorting, 
merging and or comparing. 

Column . A character position within a print line. The columns are 
numbered from one, by one, starting at the left-most character 
position of the print line and extending to the right-most 
character position of the print line. 

Comment Entry . An entry in the Identification Division that may be any 
combination of characters from the computer character set. 

Comment Line . A source program line represented by an asterisk in the 
indicator area of the line and any characters from the computer's 
character set in area A and area B of that line. The comment line 
serves only for documentation in a program. A special form of 
comment line represented by a stroke (/) in the indicator area of 
the line and any characters from the computer's character set in 
area A and area B of that line causes page ejection before 
printing the comment. 

Compile Time . The time at which an CIS COBOL source program is translated 
by the compiler to an CIS COBOL intermediate code program. 

Compiler-Directing Statement . A statement, beginning with a 

compiler-directing verb, that causes the compiler to take a 
specific action during compilation. 

Computer-Name . A system-name that identifies the computer upon which the 
program is to be compiled or run. 

Condition . A 3tatus of a program at execution time for which a truth value 
can be determined. Where the term "condition” (condition-1, 
condition-2,...) appears in these language specifications in or in 
reference to "condition" (condition-1, condition-2, ...) of a 
general format, it is a conditional expression consisting of 
either a simple condition optionally parenthesised, or a negated 
simple condition. 

Condition-Name . The user-defined word assigned to a status of an 
implementor-defined switch or device. 

Conditional Expression . A simple condition specified in an IF, or PERFORM. 
(See Simple Condition and Complex Condition.) 

Conditional Statement . A conditional statement specifies that the truth 
value of a condition is to be determined, and that the subsequent 
action of the run-time program is dependent on this truth value. 

Configuration Section . A section of tne Environment Division that describes 
overall specifications of source and run computers. 
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Connective . 

1 . 


A reserved word that is used to: 

Associate a data-name, paragraph-name, condition-name, or 
text-name with its qualifier. 

2. Link two or more operands written in a series. 

3. Form conditions (logical connectives). (See Logical 
Operator.) 

Contiguous Items . Items that are described by consecutive entries in 

the Data Division, and that bear a definite hierarchic 
relationship to one another. 

Counter . A data item used for storing numbers or number representations in 
a manner that permits these numbers to be increased or decreased 
by the value of another number, or to be cnanged or reset to zero 
or to an arbitrary positive or negative value. 

Cf!T - An tHEttraceiyfi put/output device mjaprialng a cathode fay tube 

and a Vgyboard by which an Qp-cratu-r enter and receive visual 
data. 


Currency Sign . The character "$" (dollar sign) in the CIS COBOL character 
set. 


Currency Symbol . The character defined by the CURRENCY SIGN clause in the 
SPECIAL-NAMES paragraph. If no CURRENCY SIGN clause is present in 
a CIS COBOL source program, the currency symbol is identical to 
the currency sign. 

Current Record . The record which is available in the record area associated 
with the file. 


Current Record Pointer . A conceptual entity that is used in the selection 
of the next record. 


■ ■ ■ ■ ' ■ ■ r.. *":***&&&*+?:' 

L'utsor , Thfc mclcatot on a GRT sctetn that the Lime and charsvter 

po-sitirm whitib the in put/‘out put central is current iy teferenciiiR- 

Data Clause . A clause that appears in a data description entry in the Data 
Division and provides information describing a particular 
attribute of a data item. 


Data Description Entry . An entry in the Data Division that is composed of a 
level-number followed by a data-name, if required, and then 
followed by a set of data clauses as required. 

Data Dictionary . A dictionary file of user defined names constructed by the 
Compiler containing the number of bytes for each entry. 

Data Item . A character or set of contiguous characters (excluding in either 
case literals) defined as a unit of data by the CIS COBOL program. 

Data-name . A user-defined word that names a data item described in a data 
description entry in the Data Division. When used in the general 
formats, "data-name" represents a word which can neither be 
subscripted, nor indexed unless specifically permitted by the 
rules for that format. 
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Debugging Line . A debugging line is any line with "D" in the indicator area 
of the line. 

Declaratives . A set of one or more special purpose sections written at the 
beginning of the Procedure Division, the first of which is 
preceded by the key word DECLARATIVES and the last of which is 
followed by the key words END DECLARATIVES. A declarative is 
composed of a section header, followed by a USE compiler directing 
sequence, followed by a set of associated paragraphs (0 or more). 

Declarative-Sentence . A compiler-directing sentence consisting of a single 
USE statement terminated by the separator period (.). 

Default Disk , The disk from which the compiler on run-time system is loaded 
and from which, in the absence of a specific drive' identifier, any 
copy f ile or called code wil 1 be loaded if required- 

Delimiter . A character (or sequence of contiguous characters) that 

identifies the end of a string of characters, and separates that 
string of characters from the following string of characters. A 
delimiter is not part of the string of characters that it 
delimits. 

Descending Key . A key upon the values of which data is ordered starting 
with the highest value of key down to the lowest value of key, in 
accordance with the rules for comparing data items. 

Digit Position . A digit position is the amount of physical storage 

required to store a single digit. This amount varies depending on 
the usage of the data item describing the digit position. Further 
charactersitics of the physical storage are defined by the 
implementor. 

Division . A set of sections or paragraphs (0 or more) that are formed and 
combined in accordance with a specific set of rules is called a 

division body. There are four divisions in a CIS COBOL program: 

Identification, Environment, Data and Procedure. 

Division Header . A combination of words followed by a period and a space 
that indicate the beginning of a division. The division headers 
are: 

IDENTIFICATION DIVISION. 

ENVIRONMENT DIVISION. 

DATA DIVISION. 

PROCEDURE DIVISION USING data-name-1 data-name-2 ... 

Dynamic Access . An access mode in which specific logical records can be 
obtained from or placed into a disk file in a non-sequential 
manner (see Random Access) and obtained from a file In a 
sequential manner (see Sequential Access) during the scope of the 
same OPEN statement. 

Editing Character . A single character or a fixed two character combination 
belonging to the same set: 
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Character 

B 

0 


CR 

DB 

Z 

* 

$ 

I 

/ 


Meaning 

Space 

Zero 

PIUS 

Minus 

Credit 

Debit 

Zero Suppress 
Check Protect 
Currency Sign 
Comma 

Period (Decimal Point) 
Stroke (Virgule, Slash) 


Elementary Item , A data item that is described as not being further 
logically subdivided. 

End of Procedure Division . The physical position in a CIS COBOL source 
program after which no further procedures appear. 

Entry . Any descriptive set of consecutive clauses terminated by a 
period (.) and written in the Identification Division, Environment 
Division or Data Division of an CIS COBOL source program. 

Environment Clause . A clause that appears as part of an Environment 
Division entry. 

Extend Mode . With the EXTEND phrase specified, the state of a file after 
execution of an OPEN statement, and before the execution of a 
CLOSE statement for the file. 

Figurative Constant . A compiler-generated value referenced through the use 
of certain reserved words. 

File . A collection of records. 

File Clause . A clause that appears as part of any of the following Data 
Division entries: 

File Description (FD) 

FILE-CONTROL . The name of an Environment Division paragraph In which the 
data files for a given source program are declared. 

File Description Entry . An entry In the File Section of the Data Division 
that Is composed of the level indicator FD, followed by a 
file-name, and then followed by a set of file clauses as required. 

File-Name . A user-defined word that names a file described in a file 
description entry or a sort-merge file description entry within 
the File Section of the Data Division. 
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File Organization . The permanent logical file structure established at the 
time that a file is created. 

File Section . The section of the Data Divisionthat contains file 
description entries together with their associated record 
descriptions. 

Format . A specific arrangement of a set of data. 

fOBMS Program . ; A.^screen program •• that automatically generates 

.- CIS COBOL CRT input/osttfcjrot; codingfroia actual screen layout. 

Group Item . A named contiguous set of elementary or group items. 

High Order End . The leftmost character of a string of characters. 

I-O-CONTROL . The name of an Environment Division paragraph in which object 
program requirements for specific input/output techniques, rerun 
points, sharing of same areas by several data files, and multiple 
file storage on a single input/output device are specified. 

1-0 Mode . The state of a file after execution of an OPEN statement, with the 
1-0 phrase specified for that file, and before the execution of a 
CLOSE statement for that file. 

Identifier . A data-name, followed as required by the syntactically 
correct combination of subscripts and indices necessary to make 
unique reference to a data item. 

Imperative Statement . A statement that begins with an imperative verb and 
specifies an unconditional action to be taken. An imperative 
statement may consist of a sequence of imperative statements. 

Implementor-Name . A system-name that refers to a particular feature avail¬ 
able on the implementors computing system. 

Index . A computer storage position or register, the contents of which 
represent the Identification of a particular element in a table. 

Index Data Item . A data item in which the value associated with an 
index-name can be stored in a form specified by the implementor. 

Indexed File . A file with indexed organization. 

Indexed Organization . The permanent logical file structure in which each 
record is identified by the value of one or more keys within that 
record. 

Indicator Area . The leftmost parameter position of a CIS COBOL source 
record that indicates the use of the record. 



Input File . A file that is opened in the input mode. 


Input Mode . The state of a file after execution of an OPEN statement, with 
the INPUT phrase specified, for that file and before the execution 
of a CLOSE statement for that file. 

Input-Output File . A file that is opened in the 1-0 mode. 

Input-Output Section . The section of the Environment Division that names 
the files and the external media used by a program and which 
provides information required for transmission and handling of 

data during execution of the run-time program. 

Integer . A numeric literal or a numeric data item that does not 

include any character positions to the right of the assumed 
decimal point. Where the term 'integer' appears in general 
formats, integer must not be a numeric data item, and must not be 
signed, nor zero unless explicitly allowed by the rules of that 
format. 

Inte fa 1 1 ; KtMte l The ood^ product hthe CIS COBOL compiler Kram the 
.vource code ivni: ared , isnd which tne Rur. Time System 'fast loads r 

tint eMtuHOIt 

Invalid Key Condition . A condition, at object time, caused when a specified 
value of the key associated with an indexed or relative file is 
determined to be invalid. 

Issue Disk . The flexible diskette or which the CIS COBOL software is 
supplied to users. 

Key. A data item which identifies the location of a record, or a set of 

data items which serve to identify the ordering of data. 

Key of Reference . The key currently being used to access records within an 
indexed file. 

Key Word . A reserved word whose presence is required when the format in 
which the word appears is used in a source program. 

Level-Number . A user-defined word which indicates the position of a data 
item in the hierarchical structure of a logical record or which 
indicates special properties of a data description entry. A 
level-number is expressed as a one or two digit number. 

Level-numbers in the range 1 through 49 indicate the position of a 
data item in the hierarchical structure of a logical record. 
Level-numbers in the range 1 through 9 may be written either as a 
single digit or as a zero followed by a significant digit. 

Level-number 77 identifies special properties of a data 

description entry. 

Library-Name . A user-defined word that names a CIS COBOL library 

source file that is to be used by the compiler for a given source 
program compilation. 
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Library-Text , A sequence of character-strings and/or separators In a 
COBOL library. 

Line Sequential Pile Organisation , Jfe- sequential, file containing;: variable 
length, records: separated. by* the 0/R (carriage return) and; L/ F 
(line feed) characters^ 

Linkage Section . The section in the Data Division of the called program 
that describes data items available from the calling program. 
These data Items may be referred to by both the calling and called 

pjTOgi. dlD. 

Literal . A character-string whose value is Implied by the ordered set of 
characters comprising the string. 

Logical Operator . The reserved word 'NOT', It can be used for logical 
negation. 

Logical Record . The most inclusive data item. The level-number for a 
record is 01. 

Low Order End . The rightmost character of a string of characters. 

Mnemonic-Name . A user-defined word that is associated in the Environment 
Division with a specified lmplementor-name. 

Native Character Set . The implementor-defined character set associated with 
the computer specified In the OBJECT-COMPUTER paragraph. 

Native Collating Sequence . The implementor-defined collating sequence 
associated with the computer specified In the OBJECT-COMPUTER 
paragraph. 

Negated Simple Condition . The 'NOT* logical operator immediately followed 
by a simple condition. 

Next Executable Sentence . The next sentence to which control will be 

transferred after execution of the current statement Is complete. 

Next Executable Statement . The next statement to which control will be 

transferred after execution of the current statement is complete. 

Next Record. The record which logically follows the current record of a 
file. 

Noncontiguous Items . Elementary data Items, In the Working-Storage and 
Linkage Sections, which bear no hierarchic relationship to other 
data items. 

Nonnumeric Item . A data item whose description permits Its contents to be 
composed of any combination of characters taken from the 
computer's character set. Certain categories of nonnumeric items 
may be formed from more restricted character sets. 



Monnumeric Literal . A character-string bounded by quotation marks. The 
string of characters may include any character in the 

computer's character set. To represent a single quotation mark 
character within a nonnumeric literal, two contiguous quotation 
marks must be used. 

Numeric Character . A character that belongs to the following set of digits: 
0, 1, 2, 3, 4, 5, 6, 7, 8, 9. 

Numeric Item . A data item whose description restricts its contents to a 
value represented by characters chosen from the digits *0* through 
'S'; if signed, i.uc iLem may also contain a * + ', or other 

representation of an operational sign. 

Numeric Literal . A literal composed of one or more numeric characters that 
also may contain either a decimal point, or an algebraic sign, or 
both. The decimal point must not be the rightmost character. The 
algebraic sign, if present, must be the leftmost character. 

OBJECT-COMPUTER . The name of an Environment Division paragraph in which the 
computer environment, within which the run-time program is 
executed, is described. 

Open Mode . The state of a file after execution of an OPEN statement for that 
~ file and before the execution of a CLOSE statement for that file. 
The particular open mode is specified in the OPEN statement as 
either INPUT, OUTPUT, 1-0 or EXTEND. 

Operand . Whereas the general definition of operand is 'that component which 
is operated upon', for the purposes of this publication, any 
lowercase word (or words) that appears in a statement or entry 
format may be considered to be an operand and, as such, is an 
implied reference to the data indicated by the operand. 

Operational Sign . An algebraic sign, associated with a numeric data item or 
a numeric literal, to indicate whether its value is positive or 
negative. 

Optional Word . A reserved word that is included in a specified format only 
to improve the readability of the language and whose presence is 
optional to the user when the format in which the word appears is 
used in a source progran. 

Output File . A file that is opened in either the output mode or extend 
mode. 

Output-Mode . The state of a file after execution of an OPEN statenent, with 
the OUTPUT or EXTEND phrase specified for that file and before the 
execution of a CLOSE statement for that file. 

Paragraph . In the Procedure Division, a paragraph-name followed by a period 
and a space and optionally by one, or more sentences. In the 
Identification and Environment Divisions, a paragraph header 
followed by zero, one, or more entries. 
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Paragraph Header . A reserved word, followed by a period and a space that 
indicates the beginning of a paragraph in the Identification and 
Environment Divisions. The permissible paragraph headers are: 

In the Identification Division: 

PROGRAM-ID. 

AUTHOR. 

INSTALLATION. 

DATE-WRITTEN. 

DATE-COMPILED. 

SECURITY. 

In the Environment Division: 

SOURCE-COMPUTER. 

OBJECT-COMPUTER. 

SPECIAL-NAMES. 

FILE-CONTROL. 

1-0-CONTROL. 

Parac ; raph-Name . A user-defined word that identifies and begins a paragraph 
in the Procedure Division. 

Phrase . A phrase is an ordered set of one or more consecutive COBOL 
character-strings that form a portion of a CIS COBOL procedural 
statement or of a COBOL clause. 

Prime Record Key . A key whose contents uniquely identify a record within an 
indexed file. 

Procedure . A paragraph or group of logically successive paragraphs, or a 
section or group of logically successive sections, within the 
Procedure Division, 

Procedure-Name . A user-defined word which Is used to name a paragraph or 
section in the Procedure Division. It consists of a 

paragraph-name or a section-name. 

Punctuation Character . A character that belongs to the following set: 

Meaning 

comma 
semicolon 
period 

quotation mark 
left parenthesis 
right parenthesis 
space 

equal sign 


Character 
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Random Access . An access mode in which the program-specified value of a key 
data item Identifies the logical record that is obtained from, 
deleted from or placed into a relative or indexed file. 

Record . (see Logical Record) 

Record Area . A storage area allocated for the purpose of processing the 
record described in a record description entry in the File 
Section. 

Record Description . (See Record Description Entry) 

Record Description Entry . The total set of data description entries 
associated with a particular record. 

Record Key . A key, either the prime record key or an alternate record key, 
whose contents identify a record within an indexed file. 

Record-Name . A user-defined word that names a record described in a record 
description entry in the Data Division. 

Reference-Format . A format that provides a standard method for describing 
COBOL source programs. 

Relation . (See Relational Operator) 

Relation Character . A character that belongs to the following set; 

Character Meaning 

greater than 
less than 
equal to 


> 

< 


Relation Condition . The proposition, for which a truth value can be 
determined, that the value of an arithmetic expression or data 
item has a specified relationship to the value of another 
arithmetic expression or data item. (See Relational Operator). 


255 




Relational Operator , A reserved word, a relation character, a group of 
consecutive reserved words, or a group of consecutive reserved 
words and relation characters used in the construction of a 
relation condition* The permissible operators and their meaning 


are: 

Relational Operator 

Meaning 

IS 

NOT 

GREATER THAN 

Greater than or not greater 

IS 

NOT 

> 


IS 

NOT 

LESS THAN 

Less than or not less than 

IS 

NOT 

< 


IS 

NOT 

EQUAL TO 

Equal to or not equal to 

IS 

NOT 



Relative 

File. 

A file with 

relative organization. 

Relative 

Key. 

A key whose 

contents identify a logical record : 


file 




Relative Organization . The permanent logical file structure in which each 
record is uniquely identified by an Integer value greater than 
zero, which specifies the record's logical ordinal position in the 
file. 

Reserved Word . A COBOL word specified in the list of words which may be 
used in COBOL source programs, but which must not appear in the 
programs as user-defined words or system-names. 

Routine-Name . A user-defined word that identifies a procedure written in a 
language other than COBOL 

Rtur time Debug* Air option available to GES COBOL programmers entered: as a 
user option enabling break-point, facilities in: run time programs. 

Rust,Time* The. 'time at which the- intermediate code produced by the compiler 
is interpreted hy the RunTime?; System for execution.. 

Bun Time Sy8tem-(RTS) * The software that interprets the intermediate code 
produced by the CIS COBOL costpileir and enables it to be executed 
by providing interfaces to the operating system and CRT. 

Run Unit . A set of one or more intermediate code programs which function, at 
run time, as a unit to provide problem solutions. 

Section . A set of none, one, or more paragraphs or entries, called a 
section body, the first of which is preceded by a section header. 
Each section consists of the section header and the related 
section body. 


mm 
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Section Header , A combination of words followed by a period and a space that 
indicates the beginning of a section in the Environment, Data and 
Procedure Division. 

In the Environment and Data Divisions, a section header Is composed of 
reserved words followed by a period and a space. The permissible section 
headers are: 

In the Environment Division: 

CONFIGURATION SECTION 

INPUT-OUTPUT SECTION 

In the Data Division: 

FILE SECTION 

WORKING-STORAGE SECTION 

LINKAGE SECTION 

In the Procedure Division, a section header Is composed of a section-name, 
followed by the reserved word SECTION, followed by a segment-number 
(optional) , followed by a period and a space. 

Section-Name . A user-defined word which names a section in the Procedure 
Division. 

Segment-Number , A user-defined word which classifies sections in the 
Procedure Division for purposes of segmentation. Segment-numbers 
may contain only the characters *0', ' 1’, ..., '9'. A 

segment-number may be expressed either as a one or two digit 
number, and Is checked for syntax only. 

Sentence . A sequence of one or more statements, the last of which Is 
terminated by a period followed by a space. 

Separator . A punctuation character used to delimit character-strings. 

Sequential Access . An access mode In which logical records are obtained from 
or placed into a file in a consecutive predecessor-to-successor 
logical record sequence determined by the order of records in the 
file. 

Sequential File . A file with sequential organization. 

Sequential Organization . The permanent logical file structure in which a 
record Is Identified by a predecessor-successor relationship 
established when the record is placed Into the file. 

Sign Condition . The proposition, for which a truth value can be determined, 
that the algebraic value of a data item or an arithmetic 
expression is either less than, greater than, or equal to zero. 
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Simple Condition . Any single condition chosen from the set: 


relation condition 
class condition 
switch-status condition 
sign condition 
(simple-condition) 

SOURCE-COMPUTER . The name of an Environment Division paragraph in which 
the computer environment, within which the source program is 
compiled, is described. 

Source Program . Although it is recognised that a source program may be 
represented by other forms and symbols, in this document it always 
refers to a syntactically correct set of COBOL statements 
beginning with an Identification Division and ending with the end 
of the Procedure Division. In contexts where there is no danger 
of ambiguity, the word T program f alone may be used in place of the 
phrase 'source program*. 

Special Character . A character that belongs to the following set: 

Meaning 


plus sign 
minus sign 
asterisk 

stroke (vlrgule, slash) 

equal sign 

currency sign 

comma (decimal point) 

semicolon 

period (decimal point) 
quotation mark 
left parenthesis 
right parenthesis 
greater than symbol 
less than symbol 


Character 

+ 

* 

/ 

S 

i 
> 

ii 

( 

) 

> 

< 


Special-Character Word . A reserved word which Is an arithmetic operator or 
a relation character. 

SPECIAL-NAMES . The name of an Environment Division paragraph in which 
implementor-names are related to user specified mnemonic-names. 

Special Registers . Compiler generated storage areas whose primary use is to 
store information produced in conjunction with the user of 
specified COBOL features. 



Standard Data Format . The concept used in describing the characteristics of 
data in a COBOL Data Division under which the characteristics or 
properties of the data are expressed in a form oriented to the 
appearance of the data on a printed page of infinite length and 
breadth, rather than a form oriented to the manner in which the 
data is stored internally in the computer, or on a particular 
external medium. 

Statement . A syntactically valid combination of words and symbols written in 
the Procedure Division beginning with a verb. 

Subprogram . (See Called Program). 

Subscript . An integer whose value identifies a particular element in a 
table. 

Subscripted Data-Name . An identifier that is composed of a data-name 
followed by one or more subscripts enclosed in parenthesis. 

Switch-Status Condition . The proposition, for which a truth value can be 
determined, that an implementor-defined switch, capable of being 
set to an 'on' or 'off 1 status, has been set to a specified 
status. 

Symbol Function . The use of specified characters in the PICTURE clause to 
represent data types. 

System-Name . A COBOL word which is used to communicate with the operating 
environment. 

Syntax . The order in which elements must be put together to form a 
program. 

Table . A set of logically consecutive items of data that are defined in 
the Data Division by means of the OCCURS clause. 

Table Element . A data item that belongs to the set of repeated items 
comprising a table. 

Text-Name . A user-defined word which identifies library text. 

Text-Word . Any character-string or separator, except space, in a COBOL 
library or in pseudo-text. 

Unary Operator . A plus (+) or a minus (-) sign, which precedes a variable 
or a left parenthesis in an arithmetic expression and which has 
the effect of multiplying the expression of +L or -I respectively. 

User-Defined Word . A COBOL word that must be supplied by the user to 
satisfy the format of a clause or statement. 

Variable . A data item whose value may be changed by execution of the object 
program. A variable used in an arithmetic expression must be a 
numeric elementary item. 



Verb . A word that expresses an action to be taken by a COBOL compiler or 
run time program. 

Word . A character-string of not more than 30 characters which forms a 
user-defined word, a system-name, or a reserved word. 

Working-Storage Section . The section of the Data Division that describes 
working storage data items, composed either of noncontiguous items 
or of working storage records or of both. 

77 Level-Descriptian-Entry . A. date description entry that describes a 
noncontiguous data item with the level-number 77. 
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APPENDIX D 


COMPILE-TIME ERRORS 

The error descriptions that correspond to error numbers as printed on 
listings produced by the CIS COBOL compiler are as follows: 

ERROR DESCRIPTION 



Compiler Error; consult your Technical Support 
Service 

Illegal format of data-name 

Illegal format of literal or invalid use of 'AT.I.' 
Illegal format of character 
Data-name declared twice 

Too many data or procedure names have been 
declared - compilation abandoned 
Illegal character In column 7, or continuation 
line error 

Nested COPY statement or unknown file specified 
1 .* missing 

The statement starts in the wrong area of the 

source line 

'DIVISION' missing 

'SECTION' missing 

'IDENTIFICATION' missing 

'PROGRAM-ID' missing 

'AUTHOR' missing 

'INSTALLATION* missing 

'DATE-WRITTEN’ missing 

'SECURITY’ missing 

'ENVIRONMENT' missing 

’CONFIGURATION’ missing 

'SOURCE-COMPUTER’ missing 

OBJECT-COMPUTER or SPECIAL-NAMES clause in error 

'OBJECT-COMPUTER* missing 

'SPECIAL-NAMES' missing 

SWITCH Clause in error 

DECIMAL-POINT Clause in error 

CONSOLE Clause in error 

Illegal currency symbol 

'DIVISION* missing 

'SECTION' missing 

'INPUT-OUTPUT* missing 

'FILE-CONTROL' missing 

'ASSIGN' missing 

'SEQUENTIAL* or 'RELATIVE' or 'INDEXED' missing 
'ACCESS' missing on indexed or relative file 
'SEQUENTIAL* or 'DYNAMIC* missing 
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Illegal combination ORGANIZATION/ACCESS/KEY 
Unrecognised clause in SELECT statement 
RERUN clause contains syntax error 
SAME AREA clause contains syntax error 
File-name missing or illegal 
’DATA DIVISION' missing 

’PROCEDURE DIVISION' missing or unknown statement 
’EXCLUSIVE’, 'AUTOMATIC’ or ’MANUAL' missing 
Non-exclusive lock mode specified for restricted 
file 

'DIVISION' missing 
’SECTION' missing 

File-name not specified in SELECT statement 
RECORD SIZE integer missing 
Illegal level number or level 01 required 
FD qualification contains syntax error 
'WORKING-STORAGE' missing 

'PROCEDURE DIVISION 1 missing or unknown statement 
Unrecognized clause in Data Description or 
previous ’. 1 missing 

Incompatible clauses in Data Description 
BLANK is illegal with non-numeric data-item 
PICTURE clause too long 

VALUE with non-elementary item, wrong data-type or 
value truncated 

VALUE clause in error or illegal for PICTURE type 
FILLER/SYNCHRONIZED/JUSTIFIED/BLANK clause for 
non-elementary item 

Preceding item at this level has 0 or more than 
8192 bytes 

REDEFINES of different levels or unequal field 
lengths. 

Data Division exceeds 32K and data-item has 
address above 7FFF 

Data Description clause inappropriate or repeated 

REDEFINES data-name not declared 

USAGE must be COMP, DISPLAY or INDEX 

SIGN must be LEADING or TRAILING 

SYNCHRONIZED must be LEFT or RIGHT 

JUSTIFIED must be RIGHT 

BLANK must be ZERO 

OCCURS must be numeric, non-zero and unsigned 
VALUE must be a literal, numeric literal or 
figurative constant 

PICTURE string has illegal precedence or illegal 
character 

INDEXED data-name missing or already declared 
Numeric edited PICTURE string is too large 


163 







101 


Unrecognised verb 

102 


IF ... ELSE mismatch 

103 


Data-item has wrong data-type or is not declared 

104 


Procedure name has been declared twice 

105 


Procedure name is the same as a data-name 

106 


Name required 

107 


Wrong combination of data-types 

108 


Conditional statement not allowed; imperative 
statement expected 

109 


Malformed subscript 

110 


ACCEPT or DISPLAY wrong 

111 


Illegal syntax used with 1-0 verb 

112 

* 

LOCK clause specified for file with lock mode 
EXCLUSIVE 

113 

* 

KEPT specified for uncommittable file 

115 

* 

KEPT omitted for comittable file 

116 


IF statements nested too deep (maximum 8) 

117 


Structure of Procedure Division wrong (e.g. 
DECLARATIVES not first) 

118 


Reserved Word missing or incorrectly used 

119 


Too many subscripts in one statement 

120 


Too many operands in one statement 

141 


Inter-segment procedure name declared twice 

142 


IF ... ELSE mismatch at the end of source input 

143 


Data-item has wrong data-type or is not declared 

144 


Procedure name undeclared 

145 


INDEX name declared twice 

146 


Cursor address field not declared or not 4 bytes 
long 

147 


KEY declaration missing or FD missing 

148 


STATUS declaration missing 

149 


FILE STATUS data-item has the wrong format 

150 


Paragraph to be ALTERed is not declared 

151 


PROCEDURE DIVISION in error 

152 


USING parameter is not declared in the linkage 
section 

153 


USING parameter is not level 01 or 77 

154 


USING parameter is used twice in the parameter 
list 

157 


Structure of Procedure Division wrong (e.g. 
DECLARATIVES not first). 

160 


Too many operands in one statement 


* The error codes marked by an asterisk apply only when the optional 
FILESHARE product is in use. 












flip? 








fW| 


fURp 


In addition to these numbered error messages, the following message can be 
displayed with subsequent termination of the compilation: 

FATAL 1-0 ERROR: filename 

where filename is the erroneous file. 

Any intermediate code file produced is not usable. 

The following conditions will cause this error: 

Disk overflow 

File directory overflow 

File full 

Impossible 1-0 device usage 

Other operating system dependent conditions can also cause this error. 
NOTE: 


You will notice that the numbers of the numbered error messages listed 
above are not continuous, i.e., there are gaps in the numbering. The 
compiler should never have cause to generate an error message with a 
number not listed above. If you ever encounter such a number, consult 
your Micro Focus Product Technical Support office. 



! 
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APPENDIX E 


RUN-TIME ERRORS 

Run-time error messages are preceded by the name and segment number of 
the currently executing intermediate code file. 

There are two types of run-time errors: Recoverable and Fatal. 

(a) Recoverable errors 

If the programmer has specified the STATUS clause in the FILE-CONTROL 
paragraph of a program error handling is the programmer's responsibility. 
This will generally only apply to errors that are not considered fatal 
by the operating system. (See File Status in Chapters 5,6 and 7) 

(b) Facal errors 

All errors except those above ace fatal. They may come from the operating 
system or from the run-time system. Fatal errors cause a message to be 
output to the console which includes a 3-digit error code and reference to 
the COBOL statement subsequent to that in which the error occurred. These 
fall into two classes: 

(i) Exceptions 

These cover arithmetic overflow, subscript out of 
range, too many levels of perform nesting. 


(ii) 1-0 errors 

These exclude those for which STATUS is not selected as above. 


Error 

Description 

151 

Random read on sequential file 

152 

REWRITE on file not open 1-0 

153 

Subscript out of range 

154 

Perform nesting exceeds 22 levels 

156 

Invalid file operation 

157 

Object file too large 

158 

REWRITE on line-sequential file 

159 

Malformed line-sequential file 

161 

Illegal intermediate code 

162 

Arithmetic overflow or underflow 

164 

Specified CALL code not supplied or_ 

Attempt to call a COBOL module recusively (i.e 
when is already active) 

165 

Incompatible releases of compiler and run-time 
system 

168 

Memory arrangement failure 

169 

Invalid indirect sequential file key length 
(>32 characters) 

170 

Illegal operation in Indexed Sequential 

171 

Attempt to read I-S record in output/extend mode 




172 

Attempt to delete I-S record in non 1-0 mode 

173 

Attempt to write I-S record in input mode 

174 

Attempt to CALL/CANCEL on active program 

176 

Illegal inter-segment reference 

180 

COBOL file malformed 

181 

Fatal file malformation 

194 (CP/M 1, 

.4 only) File size too large (>0.5MB) <vr 

Failure to Open on Extent 

195 

DELETE/REWJUTE not preceded by a READ 

196 

Relative (or Indexed) - Record number too large 
(>65535) 

197 

File save failure 

198 

Program load failure (using CHAIN) 

L99 

Indexed sequential file name too long { >20 characters) 

200 

Insufficient space to load Animator 


See also appendix D In the CIS COBOL Operating Guide specific to your 
operating system. 





APPENDIX F 


SYNTAX SUMMARY 


All the syntax for 
E denotes that the 
D denotes that the 


CIS COBOL is summarized below. 

feature is a CIS COBOL extension to ANSI COBOL. 

feature is documentary only in CIS COBOL. 


GENERAL FORMAT FOR IDENTIFICATION DIVISION 


fIDENTIFICATION 

fPROGRAM-ID . 

[ AUTHOR . 

[ INSTALLATION . 

[ DATE-WRITTEN . 

[ DATE-COMPILED . 

[ SECURITY . 


DIVISION .} 
program name} 
[comment 
[comment 
[comment 
[comment 
[comment 


entry] 

entry] 

entry] 

entry] 

entry] 


...] 

...] 

...] 


...] 


...] 
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GENERAL FORMAT FOR ENVIRONMENT DIVISION 





i 


ENVIRONMENT DIVISION. 


CONFIGURATION SECTION . 

SOURCE-COMPUTER , source-computer-entry [WITH DEBUGGING MODE ]. 
OBJECT-COMPUTER , object-computer-entry 


, MEMORY SIZE integer 


I WORDS 
| CHARACTERS 
i MODULES 


a 


[,PROGRAM COLLATING SEQUENCE IS alphabtt-name]. 


SPECIAL-NAMES. 


SWITCH 


fe 


ON STATUS Ij[ condition-name-1 

[ OFF STATUS ^S. condition-name-2] 
[ IS mnemonic-name]} OFF STATUS conditional-name-2 

[ON STATUS IS conditional-name-1] 


SYSIN ) T „ 

SYSQUT f mnemonic-name 

[ >TAB IS mnemonic-name] 


[, CURRENCY SIGN IS literal-9] 

[. DECIMAL-POINT _IS COMMA] 

[. CURSOR IS data-name-li E 

[ » CONSOL^- ! IS. CRT] E 

INPUT-OUTPUT SECTION . 

FILE-CONTROL . 

file-control-entry ... 


pram) 
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I-O-CONTROL. 


i wmm 




file-name -1 >1 
implementor-name» J 


mm 


ifero 

i inti 


^OrjllUEELl 

\jmti 

integer-! 

integer -2 CLOCK-UNITS 
condition-name 


\ 


0? file-name-2 


jj^ SAME AREA FOR f ile-naiae-I j,file-name- 21 .. . .J. 




GENERAL FORMAT FOR FILE-CONTROL ENTRY 
Sequential SELECT: 

SELECT file-name 

ASSIGN TO external-file-name-literal 
ifile-identifier 


i ft 


external-file-name-literal j "1 
fiie^identifier 


_ 


ORGANIZATION IS 


f SEQUENTIAL 

1 tiHE sequeh^ial 




[;ACCESS MODE IS SEQUENTIAL ] 
[;FILE STATUS IS data-name] 
Relative Select: 

SELECT file-name 


ASSIGN TO 


(external-file-name-literal 


f file-identifier 
ORGANIZATION IS RELATIVE 


; [i 


external-file-name-literal 
fiie-identifier 




ACCESS MODE IS 


k 


SEQUENTIAL 
RANDOM | 
DYNAMIC/ 


[, RELATIVE KEY IS data-name 
,RELATIVE KEY IS data-name 


] i] 


[;FILE STATUS IS data-name] 




Indexed Select: 


f*) 




jfpftl 


SELECT file-name 


ASSIGN TO i external-file-uame-literal j T f t extemal-fiJ-e-name-llteral 
f file-identifier i L il6~fdent±£ier 

; ORGANIZATION IS INDEXED 

( SEQUENTIAL 

; ACCESS MODE IS j RANDOM 
( DYNAMIC 

;RECORD KEY IS data-name 



[;FILE STATUS IS data-name] 



GENERAL FORMAT FOR THE DATA DIVISION 


DATA DIVISION , 
[ FILE SECTION . 
FD file-name 


l 


; BLOCK CONTAINS integer 


{ 


RECORDS 

CHARACTERS 


(] 


[; RECORD CONTAINS [integer*! '20 integer-2 CHARACTERS ] 

- : • ■ if:: :XS' ) 4 STANDARD ! 

’ isSSSt USCORDS ARK > I CHITTED f . 


VALUE OF data-name-1 IS Uteral-rl 
[data-name-2 IS Iiterel*2 j 

f RECORD IS 


[; mm {] 




[ RECORDS ARE 
[ s VCODE-SgT IS alphabet-name] 


data-na«e-l { * data-name* 


•?]* • 


[record-description-entry] . 

[ WORKING-STORAGE SECTION 

[ 77-level-description-entry“| 
record-description-entry J 

[ LINKAGE SECTION 

[ 77-level-description-entry! 
record-description-entry J 


]• 

•] 


GENERAL FORMAT FOR DATA DESCRIPTION ENTRY 


level-number j data-name 1 
1 FILLER f 
[; REDEFINES data-name] 

JPICTURE)„ . . ^ . 1 

I ; lHc-J IS P lcture_strln 8J 

COMPUTATIONAL 
COMP 

COMPUTATIONAL-3| 


;USAGE IS 


f COMP-3 
t DISPLAY 


[ [; SIGN IS] | TRAILING } 1 SEPARATE CHARACTER]] 

[ ; OCCURS integer TIMES INDEXED BY index-name-1 [, index-name-2] ...] 



[;BLANK WHEN ZERO ] 

[; VALUE IS literal] . 
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GENERAL FORMAT FOR PROCEDURE DIVISION 


Declarative format: 

PROCEDURE DIVISION [USING data-name-1 l, data-name-2] ...]. 
DECLARATIVES . 

J section-name SECTION segment-number, declarative-sentence 
[paragraph-name, [sentence] ...] ••• \ 

END DECLARATIVES . 

| section-name SECTION [segment-number] 

[paragraph-name [sentence] ...] •** j.... 

Non-declarative format: 

PROCEDURE DIVISION [ USING data-name-1 [,data-name-2] ...]. 
| paragraph-name [sentence] 

GENERAL FORMAT FOR VERBS 

ACCEPT dataname-1 |aT \ IS* SSL E 

ACCEPT identifier [ FROM CONSOLE ] 

ADD tidentifier-1 j tidentifier-2{... TO identifier [ ROUNDED ] 
Jliteral-1 t < literal-2 ' 

[; ON SIZE ERROR imperative-statement] 


tidentifier-1) 

(identifier-2i 

' cidentifier-3>1 

<literal-1 >* 

fliteral-2 { 

*{literal-3 >J 


GIVING identifier [ ROUNDED ] 


[; ON SIZE ERROR imperative-statement] 

ALTER jprocedure-name-1 TO [PROCEED TO ] procedure-narae-2 [ ... 

CALL {Mentifier-l> [USING data-name-1 [, data-name-2] ...] 
-- (literal-1 » 


saaliESEr 1 ! [: 


identifier-2 ' 
literal-2 


CLOSE file-name! 


Mia | .file-name ^tjauwm \ 


DELETE file-name RECORD [; INVALID KEY imperative-statement] 




S identifier-2 
literal-2 


| ... [upon console] 
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idata-naae-2 »1 Of OR ( CRT I 

.;®s**Mli*wral~3' rt Utteral-4 Jj 1 CRT-UNDER f 


DIVIDE j^T 


identifier-! 

literal-1 


j INTO identifier-2 [ ROUNDED ] 


[;ON SIZE ERROR imperative-statement] 

DIVIDE tnteral-l^ 1 ! ^ i literal-"" 2 ! GIVING identifier-2 [ ROUNDED ] 
[;ON SIZE ERROR imperative-statement] 

DIVIDE jiiteral-1 r_1 i — I literal-^" 2 ! GIVING identifier-3 [ ROUNDED ] 
[;ON SIZE ERROR imperative-statement] 

JENTBIt language-name [routine-name]. D 

EXIT [PROGRAM], 


GO TO procedure-name. 

GO TO procedure-name-1 , procedure-name-2 .. 
DEPENDING ON identifier 


IF condition 


( statement-1 ] f ; ELSE 

’ \ NEXT SENTENCE j 1 ; ELSE 


statement-2 1 
NEXT SENTENCE/ 


INSPECT identifier-1 TALLYING 


| identifier-2 

[ / BEFORE ] 
[ 1 AFTER / 


FOR .]) LEADING f 


( 


lidentifier-3 
fliteral-2 
CHARACTERS 


INITIAL 


(identifier-4 
fliteral-3 


o 




INSPECT identifier-1 REPLACING 
1 character by |“^ r_6 { 


\ 


\ 


I ALL 

[,]^ LEADING 
I FIRST 


T f BEFORE ) 
| 1 AFTER / 


jidentifier-5 i jidentifier-6i \ 

f literal-3 t — f literal-4 i } 


INITIAL 


( identifier-7 j"| 
* literal-5 'J 
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INSPECT identifier TALLYING tally-clause REPLACING replacing-clause 

M0VE tju!!!^ 1 X r " 1 ( T ° identifier “ 2 [,identifier-3] 

MULTIPLY jiiteral-l 7 ” 1 I BY identifia r-2 [ ROUNDED ] 

[; ON SIZE ERROR imperative-statement] 

MULTIPLY )iiteral-i r_1 i BY 1 literal-2^i G1VING identifier-3 [ ROUNDED ] 
[; ON SIZE ERROR imperative-statement] 


OPEN 


! INPUT 
OUTPUT 

Iz° 

EXTEND 


file-name-1 


,file-name-2 


PERFORM procedure-name-! 

PERFORM procedure-name- 

PERFORM procedure-name- 

READ file-name [ NEXT ] 

[;AT END imperative-statement] 

READ file-name RECORD [INTO identifier] 

[; INVALID KEY imperative-statement] 
REWRITE record-name [ FROM identifier] 

[; INVALID KEY imperative-statement] 


[THROUGH ] 

[THRU-f P rocedure “ naine - 2 

i THROUGH ) 

l THRU-f P roced ure-name-2 

f THROUGH ) 

[THRU-f P rocedure ~ narae_2 

RECORD [INTO identifier] 


(identifier-1) 
fliteral-1 > 


TIMES 


UNTIL condition 


SET (identifier-1) ([identifier-2]) 
- < index-name-1» »[index-name-2]» 


I TO (identifier-3) 

' UP BY | jindex-name-3 [ 

1 DOWN BY (integer-1 ) 


START 



IS = 

IS > 

IS NOT < 


data-name 




[; INVALID KEY imperative-statement] 
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{““ralT 1 ! FROM identifier-3 ( ROUNDED ] 


[; ON SIZE ERROR imperative-statement] 


lidentifier-l> , lidentifier-2 


- isoMin^i-r- 3 ! 


GIVING identifier A [ ROUNDED ] 

[; ON SIZE ERROR imperative-statement] 


USE AFTER STANDARD | ^^ TI0N } PROCEDURE ON 


/ file-name 
INPUT 
OUTPUT 

f 1=0 

\ EXTEND 


USE FOR DEBUGGING 


f procedure-name-1 [, procedure-name-2U 
ALL PROCEDURES I 


WRITE record-name FROM identifier 


integer 


{!§f} ADVANCING {mj 


/LINE \\ 
l LINES) J 


WRITE record-name [FROM identifier] 

[; INVALID KEY imperative-statement] 


GENERAL FORM FOR COPY STATEMENT 


COPY \ 


text-name i 

external-file-name-literal 1 




APPENDIX G 


SUMMARY OF EXTENSIONS TO ANSI COBOL 

CIS COBOL Is oriented to microcomputer users with the system readily accessable 
and usually with a CRT. CIS COBOL therefore provides extensions for 
interactive working, program control of files, text file handling and rapid 
development and testing. These facilities are summarised below, 

SCREEN FORMATTING AND DATA ENTRY 

THE ACCEPT STATEMENT 

An additional format for the ACCEPT statement is provided as follows: 

Format 

ACCEPT dataname-L [ FROM CRT ]] 


data-name-2 allows the start of screen to be changed dynamically. It 
refers to a PIC 9999 field where the most significant 99 is a 
line count 1-25 and the least significant 99 is a character 
position 1-80. 

data-name-1 refers to a record, group or elementary item but may not be 
subscripted. 

literal-! is a numeric literal 


NOTE: See Chapter 3 for description. 

Environment Division changes. 


See also Appendix H for 


THE DISPLAY STATEMENT 

An additional format for the DISPLAY statement is provided as follows: 
Format 


DISPLAY 

literal-3 
dataname-1 ♦ 

dataname-2 


idata-name- 
fliteral-3 


‘Ilk !iN an T7 2 {l 

L (literal-! fj | CRT-UNDER 


is an alphanumeric literal 

refers to a record, group or elementary item but may not be 
subscripted 

defines the left-most position on the screen. It refers to a 
PIC 9999 field where the most significant 99 is a line count 
1-25 and the least significant 99 is a character position 
1-80. 


NOTE: See Chapter 3 for description. 
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DISK FILES 


Two exLensions are offered by CIS COBOL file processing; these are as 
follows: 

1. Line sequential files 

2, Run time input of filenames 

LINE SEQUENTIAL FILES 

When LINE SEQUENTIAL ORGANIZATION is specified in the FILE CONTROL 
paragraph ORGANIZATION IS entry, the file is treated as consisting of 
variable length records separated by the line delimiter characters. 
Trailing spaces in output records are replaced by a record terminator which 
is operating system dependent. 

RUN TIME INPUT OF FILENAMES 

The ASSIGNed name in the SELECT statement for a file is processed on 
OPENing as follows: 

When the INPUT or OUTPUT phrase is specified, execution of OPEN causes 
checking of the file names in accordance with the operating system 
conventions for opening an input or output file. The full operating system 
features for file reallocation and device control are therefore available to 
the CIS COBOL program. 

LOWER CASE CHARACTERS 


The full alphanumeric lower case a to z is available in CIS COBOL. 
Reserved and user word characters are read as their upper case equivalents 
(A to Z). 

HEXADECIMAL VALUES 


Hexadecimal binary values can be attributed to non-numeric literals in 
CIS COBOL by expressing them as X "xx", where x is a hexadecimal character 
in the set 0-9, A-F; xx can be repeated up to 120 times, but the number of 
hexadecimal digits must be even. 

INTERACTIVE DEBUGGING 


There is a Run-Time Debug Package to provide break-point facilities in 
the user's program. Programs may be run from the start until a specified 
break-point is reached, when control is passed back to the user. At this 
point, data areas may be inspected or changed. 

The Debug package is entered as an option by the user and the user 
program is then tested line by line, paragraph by paragraph and so on as 
required. The commands to the package can reference procedure statements 
and data areas by means of a 4-digit hexadecimal code output by the compiler 
against each line of the compilation listing. Powerful macros of commands 
can be used to give very sophisticated debugging facilities. The precise 
details for using the package vary according to the host operating system 
and are described in the appropriate Operating Guide. 
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APPENDIX H 


SYSTEM DEPENDENT LANGUAGE FEATURES 

This Appendix summarizes those parts of a COBOL program that need to be 
changed to run them as CIS COBOL programs and those parts that do not need 
changing specifically but are ignored by the CIS COBOL compiler when 
generating the object program. 


MANDATORY CHANGES 
ENVIRONMENT DIVISION 

The only statements in the environment division that must be 
specialized for CIS COBOL are shown below: 

Configuration Section 

SPECIAL-NAMES , special names entry 

special names entry must Include the following: 

CURSOR IS data-name-1 

The CURSOR IS data-name-1 clause specifies the data-name which will contain 
the CRT cursor address as used by ACCEPT statements. Data-name-1 must be 
declared in the Working-Storage section as a 4 character item. The 
interpretation of the 4 characters is given in the ACCEPT statement 
description. 


Input-Output Section 

File names must be as described in Appendix F of the CIS COBOL 
Operating Guide. 


STATEMENTS COMPILED AS DOCUMENTATION ONLY 


COBOL programs not specifically written for compilation as CIS COBOL on 
microcomputers can still be compiled. Statements using features that are 
not available are treated as documentary only, and are not compiled. A 
summary of these features follows: 

ENVIRONMENT DIVISION 

I-O-Control Paragraph 

The clauses that refer to a real time clock and magnetic tape in this 
paragraph are ignored by the compiler during compilation but do not cause 
compile times errors. These clauses are as follows: 

i REEL i 

END OF J iJNi/f > of file ~name-2 (no magnetic tape) 
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integer-2 CLOCK UNITS 


(no clock.) 


DATA DIVISION 

File Description Paragraph 

The following complete stataoents In the file description are Ignored 
by the compiler during compilation but do not cause compile time errors; 

BLOCK CONTAINS integer-1 TO lnteger-2 

( RECORDS ) 
f CHARACTERS t 

CODE-SET IS alphabetic-name 

t RECORD IS ) i STANDARD i 

f RECORDS ARE i f CHITTED i 

VALUE OF lmpleraentor-name-1 IS literal-1 

[,lmplementor-name-2 IS literal-2] ... 

PROCEDURE DIVISION 

CLOSE Statement 


The following phrases In the CLOSE statement are Ignored by the 
compiler during compilation but do not cause compiler-time errors: 

REEL » 

UNIT S 


(No magnetic tape) 



APPENDIX I 


LANGUAGE SPECIFICATION 


CIS COBOL is ANSI COBOL as given in "American National Standard Programming 
Language COBOL" (ANSI X3.23 1974). CIS COBOL implements both levels of 
ANSI COBOL. The following modules are fully implemented at Level 1: 

. Nucleus 

. Tabl** Handling 

, Sequential Input and Output 

. Relative Input and Output 

. Indexed Input and Output 

. Segmentation 

. Library 

. Inter-Program Communication 

. Debug 

In addition many Level 2 features are implemented such as: 

Nucleus - Nested IF, PERFORM UNTIL 
. Relative and Indexed sequential I/O - START statement 

. Inter-Program Communication - Fully implemented at level 2 


This appendix specifies the Implementation of Version 4.3 CIS COBOL. The 
Implementation of each of the eight standard COBOL modules listed above is 
given under the following headings as applicable: 

Level 1 Implementation 
Level 2 Implementation 
CIS COBOL Extensions 


Appendix F in this manual is a CIS COBOL syntax summary. 
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NUCLEUS 


Level One Implementation 
Fully implemented to Level One. 

Level Two Implementation 

1. DATE-COMPILED in the Identification Division is accepted for 
documentation purposes only. 

2. Up to 49 Level Numbers are permitted ard 1-9 can be a single digit. 

3. The characters , and ; are permitted as separators 

4. The character *> T , * = t and '<* are permitted in relative conditions. 

3. The PERFORM ... THROUGH ... UNTIL feature is Implemented. 

6. Plural forms of the figurative constants can be 1 used. 

7. IF statements can be nested. 

8. Mnemonic names are permitted in ACCEPT and DISPLAY statements (See 
CIS COBOL extensions 6 and 7 below). 

9. Procedure names can be all digits. 

10. REDEFINES clauses can be nested. 

11. Non-numeric operands can be compared. 

CIS COBOL Extensions 

1. Lower case letters a to z are read as upper case letters A to Z. 

2. Hexadecimal binary values can be attributed to non-numeric values by 
expressing literals as X"nn". 

3. Reserved word SPACE can be used to clear the whole CRT screen. 

4. ANS switch not set enables omission of certain ANSI required "red tape 11 
paragraphs and statements. 

5. C0MPUTATI0NAL-3 or COMP-3 can be specified in the USAGE clause to 
specify packed internal decimal storage, (BCD). 

6. ACCEPT data-name-1 ^AT l^ter™!^] FR0M CRT 


gives enhanced CRT input features 



7. 


DISPLAY 


$ data-name-1 > [* _ tda ta-name-2) "I 
< literal-L i|_ Ai fliteral-2 


upon} 


CRT j 

crt-under! 


gives enhanced CRT output facilities. 

8. 'CURSOR IS data-name f can be specified In SPECIAL-NAMES and 'data-name' 
In WORKING-STORAGE section to specify CRT cursor address for ACCEPT 
statements 


SEQUENTIAL, RELATIVE AND INDEXED 1-0 


Level One Implementation 
Fully Implemented to Level One. 
Level Two Implementation 


1. The START statement Is fully supported for Relative and Indexed files. 

2. In sequential files, EXTEND Is supported. 

3. In OPEN and CLOSE statements; 

(REEL) 

? UNIT' 

are accepted for documentation purposes only. 

4. LOCK In the CLOSE statement Is treated as documentary only. 

5. Dynamic access mode and READ NEXT are supported for relative and 
indexed files. 

6. Only the first assignment in each ASSIGN Is actioned, others are 
treated as documentary only at compilation. 

7. The I-O-CONTROL paragraph is treated as documentary only as are Its 
RERUN and SAME AREA clauses. 

8. The folloving are treated as documentary only in the FD clause: 

BLOCK CONTAINS 
CODE-SET 
DATA RECORDS 
LABEL RECORDS 
RECORDS CONTAINS 
VALUE OF 
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CIS COBOL. Extensions 


1. Run Time allocation of file—names. See Appendix F in Operating Guide. 

2. LINE SEQUENTIAL is an additional file type. 

3. All File Description (FD) clauses are optional vhen ANS switch is 
unset, 

4. Tabbing Is available, specified by TAB in the WRITE statement. 

TABLE HANDLING 


Level One Implementation 
Fully Implemented to Level One. 

CIS COBOL Extensions 

1. Items can be accessed in tables up to 49 dimensions. This extension is 
restricted to three dimensions if the ANS switch la set. 


SEGMENTATION 


Level One Implementation 
Fully Implemented to Level One 


LIBRARY 

Level One Implementation 
Fully Implemented to Level One 


DEBUG 

Level One Implementation 

Fully Implemented to Level 1 plus an additional Interactive Run-Time Debug 
package. 



CIS COBOL Extensions 


A powerful Run-Time Debug package Is available. See Chapter 3 In the 
CIS COBOL Operating Guide. 


INTER-tROQtAH CCMMPNICAIION 
Level Two Implementation 


Fully Implemented to Level Two 



A C 


ACCEPT Statement, 

100 

Access Mode, 

140, 162, 188 

ADD Statement, 

103 

Algebraic Signs, 

47 

Alignment Rules, Standard, 

■47 

Alphabetic Data Rules 

75 

Alphanumeric Data Rules, 

76 

Alphanumeric Edited Data Rules 
76 

ALTER Statement, 

105, 217 

ANSI (ANS) Compiler Directive, 
50 

Area, Indicator, 

34 

Arithmetic Statements, 

99 

ASSIGN Clause, 

144, 166, 192 

AT END Condition, 

142, 165, 191 


B 

Blank Lines, 

60 

BLANK WHEN ZERO Clause, 

72 

BLOCK CONTAINS Clause, 
148, 170, 196 

Body, Procedure Division, 
56 


CALL Statement, 

230 

CANCEL Statement, 

232 

Character Representation and 
45 

Character Sets, 

36 

Character Strings, 

38 

Character Strings, PICTURE, 

43 

CIS COBOL, What It Is, 

30 

Class Condition, 

96 

Classes of Data, Concepts, 

44 

Classification, Segmentation, 
215 

Clause, ASSIGN, 

144, 166, 192 

Clause, BLANK WHEN ZERO, 

72 

Clause, BLOCK CONTAINS, 

148, 170, 196 

Clause, CODE-SET, 

148 

Clause, CURSOR IS, 

67 

Clause, DATA RECORDS, 

148, 170, 196 

Clause, DATA-NAME or FILLER, 

72 

Clause, FILE STATUS, 

143, 166, 192 

Clause, JUSTIFIED 

73 

Clause, LABEL RECORDS, 

149, 170, 197 

Clause, OCCURS, 

5-134 

Clause, ORGANIZATION, 

143, 166 , -192 

Clause, PICTURE, 

75 

Clause, RECORD CONTAINS, 

149, 170, 197 

Clause, RECORD KEY, 

192 
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Clause, REDEFINES, 

85 

Clause, SELECT, 

143, 166, 192 

Clause, SIGN, 

87 

Clause, SYCHRONISED, 

89 

Clause, USAGE 
91, 136 

Clause, VALUE OF, 

150, 171, 197 

Clause, VALUE, 

192 

Clause, WITH DEBUGGING MODE, 
222 

CLOSE Statement, 

151, 172, 198 

COBOL Words, 

32 

CODE-SET Clause, 

148 

Comment Entries, 

43 

Comment Lines, 

62 

COMP(UTATIONAL) 

44 

Comparison Involving Index 
137 

Comparison of Nonnumeric 
94 

Comparison of Numeric 
94 

Compile Time Debug Switch, 
222 

Compiler Directive, ANSI, 

50 

Computer Independent Data 

43 

Concept, Classes of Data, 

44 

Concepts, Computer 
43 

Concepts, Levels, 

43 

Concepts, Language, 

36 

Condition-Name Rules 
82 


Condition-Name, 

39, 50 

Conditional Expressions, 
94 

Conditions, AT END 
142, 165, -191 

Conditions, Class, 

96 

Conditions, INVALID KEY 
165, 191 

Conditions, Relation, 

94, 137 

Conditions, Simple 
■94 

Conditions, Switch-Status 

97 

CONFIGURATION SECTION, 

65 

Connectives, 

40 

Constants, Figurative, 

40 

Continuation of Lines, 

60 

COPY Statement, 

220 

CRT Devices, 

99 

Current Record Pointer, 
140, 162, 188 
CURSOR IS Clause, 

167 


D 

Data Description, Computer 
43 

Data Description, Entries 
93 

Data Description, Entry 
70 

Data Division Entries, 

61 

Data Division in Indexed 1-0 
195 

Data Division in Interprogram 
227 
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Data Division in Nucleus, 

70 

Data Division in Relative 
169 

Data Division in Sequential 
146 

DATA RECORDS Clause, 

148, 170, 196 

DATA-NAME or FILLER Clause 
172 

DATE-COMPILED Paragraph, 

64 

Debug 

221 

DEBUG, Environment 
222 

DEBUG, Object Time Switch 
222 

DEBUG, Procedure Division in 
223 

Debug, Run Time 
221 

Declarations, 

55 

Declaratives, 

62 

DELETE Statement, 

174 

DISPLAY Statement, 

106 

DIVIDE Statement, 

108 

Division Format, 

60 

Division Header, 

60 


E 

Editing Symbols, 

77 

Editing Types for Data 

75 

Elementary Item Size Rules, 

76 

Elements 

32 


ENTER Statement, 

110 

Entries, Comment 
43 

Entry, FILE-CONTROL, 

143, 166, 192 

Environment Division in 
222 

Environment Division in 
192 

Environment Division in 
65 

Environment Division in 
166 

Environment Division in 
43 

Execution, Procedure Division 
56 

EXIT PROGRAM Statement, 

232 

EXIT Statement 
111 

Expressions, Conditional 
94 

Extra Intermediate Code Files, 
217 


F 

Figurative Constant Values, 

42 

Figurative Constants, 

40 

File Description Entry 
147, 169, 195 

FILE SECTION, 

146, 169, 195 

FILE STATUS Clause 
143, 166, 192 

FILE-CONTROL ENTRY, 

143, 166, 192 

FILE-CONTROL Paragraph, 

143, 166, 192 

FILLER or DATA-NAME Clause 
72 

Fixed Insertion Editing Rules 
80 





IWKIW) 


mm, 
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Fixed Portion, 

214 

Formats, Division, 
60 

Formats, General, 

32 

Formats, Paragraph, 
60 

Formats, Reference, 

59 

Formats, Section, 

60 

Formats, Source, 

33 


G 

General Formats 
32 

GO TO Statement, 
112 


H 

Header, Division 
60 

Header, Paragraph 
60 

Header, Procedure Division 
60 

Header, Section, 

60 

Hexadecimal Characters, 

41 

Hints, Useful, 

234 


I 

1-0 Control Paragraph, 
145, 168, 194 


Identification Division, 

51 

Identification Division, 

63 

Identifier, 

49 

IF Statement, 

113 

Incompatible Data, 

97 

Independent Segments, 

214 

Index Data Items, 

137 

Index-Names, 

137 

Indexed 1-0 Module, 

188 

Indexed 1-0 Module, 

195 

Indexed 1-0 Module, 

192 

Indexed 1-0 Module, Procedure 
198 

Indexing, 

48 

Indicator Area 
34 

Input-Output Section, 

143, 166, 192 

Input-Output Status, 

140, 162, 189 

Insertion Editing Rules, 

30 

Insertion Editing Rules, 

7 9 

Insertion Editing Rules, 

79 

Insertion Editing Rules, Fixed 

86 

INSPECT Statement, 

115 

Inter Program Communication 
227 

Inter Program Communication 
229 

Intermediate Code Files, 

217 

INVALID KEY Condition, 

165, 191 
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M 


J 

Mnemonic-Name 

JUSTIFIED Clause, 

39 

Mode, Access, 

73 

CO 

CO 

vO 

O 

-3- 

K 

Keys, Status, 

140, 163, 189 

L 

MOVE Statement, 

122 

MULTIPLY Statement, 

125 

N 

Name, Condition, 

39 

Name, Mnemonic, 

LABEL RECORDS Clause, 

39 

Name, Paragraph, 

149, 171, 197 

39 

Language Concepts, 

Name, Section, 

36, 150, 162 

39 

Language Structure, 

Name, System, 

36 

39 

Levels, Concept of, 

Name, User-Defined, 

43 

39 

Levels, Number, 

Nonnumeric Literals, 

44, 74 

41 

Library Module, 

Nucleus Function, 

219 

63 

Lines, Blank, 

Nucleus, Data Division in. 

60 

70 

Lines, Comment, 

Nucleus, Environment Division in 

62 

65 

Lines, Continuation of, 

Nucleus, Identification 

60 

63 

Lines, Debugging, 

Nucleus, Organization, 

221 

63 

Linkage Section, 

Nucleus, Procedure 

227 

94 

Literals, Nonnumeric, 

Nucleus, Structure, 

41 

63 

Literals, Numeric, 

Number, Level, 

41 

44, 74 


Number, Sequence, 
34, 60 










(KP^ 




pUHS \ 




MM*) 
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Numeric Data Rules, 

75 

Numeric Edited Data Rules 
75 

Numeric Literals, 

41 

Numeric Operands, 

93 


ORGANIZATION IS SEQUENTIAL, 
143 

Organization, LINE SEQUENTIAL 
143 

Overlapping Operands, 

99, 137 


P 


0 


OBJECT Time DEBUG Switch, 
222 

OBJECT-COMPUTER Paragraph 
65 


OCCURS Clause, 

134 

OPEN Statement, 

152, 175, 200 

Operand Comparison, 

93 

Operand, Overlapping, 

99, 137 

Organisation, Data Division, 

53 

Organisation, Environment Division, 
52 


Organisation, 

51 

Organisation, 

188 

Organisation, 

63 

Organisation, 

56 

Organisation, 

162 

Organisation, 

214 


Identification Division, 

Indexed 

Nucleus, 

Procedure 

Relative 

Segmentation, 


Organisation, Sequential 
140 

ORGANIZATION IS 
143 

ORGANIZATION IS INDEXED, 
192 

ORGANIZATION IS RELATIVE, 
166 


Paragraph Format, 

60 

Paragraph-Name, 

39 

Paragraph, 

65 

Paragraph, DATE-COMPILED, 

64 

Paragraph, FILE-CONTROL, 

143, 166, 192 

Paragraph, 1-0 CONTROL 
145, 168, 194 

Paragraph, PROGRAM ID, 

64 

Paragraph, SOURCE-COMPUTER, 

65 

Paragraph, SPECIAL-NAMES, 

67 

PERFORM Statement, 

127, 217 

Phrase, ROUNDED, 

98 

Phrase, SIZE ERROR, 

98 

PICTURE Character Strings, 

43 

PICTURE Clause, 

75 

Portion, Fixed, 

214 

Precedence Rules, 

82 

Procedure Division Header, 

56, 229 

Procedure Division in 
223 

Procedure Division in Indexed 
198 
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Procedure Division in the 
229 

Procedure Division in the 
94 

Procedure Division in the 


REDEFINES Clause, 

33 

Reference, Uniqueness of 
48 

Relation Condition, 


173 

94 

Procedure Division in the 

Relation Condition, Table 

151 

137 

Procedure Division, 

Relative Input-Output Module, 

55 

166 

Procedure Division, 

Relative Input-Output Module, 

55 

169 

Procedure Division, Body, 

Relative Input-Output Module, 

56 

173 

Procedure Division, Execution, 

Reserved Words, 

56 

62 

Procedure Division, General 

REWRITE Statement, 

56 

157, 181, 206 

Procedures, 

ROUNDED Phrase, 

55 

98 

Program Segments, 

Rules General, 

214 

32 

Program Structure, 

Rules Symbols Used, 

31, 50, 216 

47 

PROGRAM-ID Paragraph. 

Rules, Alignment, Standard, 

54 

75 

Programming Techniques, 

Rules, Alphabetic Data, 

234 

76 

Rules, Alphanumeric Data, 

76 

Rules, Alphanumeric Edited Data 
76 

Q 

Rules, Editing, 

79 

Rules, Editing, Fixed 

86 

Rules, Editing, Floating 
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Source Format, 

70 

34 

Segmentation Classification, 

SOURCE-COMPUTER Paragraph, 

215 

65 

Segmentation Control, 

Special Insertion Editing Rules 

215 

79 

Segmentation Organisation, 

SPECIAL-NAMES Paragraph, 

214 

■67 

Segmentation 

Suppression Editing, Zero, 

214 

81 

Segments, Independent, 

Standard Alignment Rules, 

214 

47 

Segments, Program 

START Statement, 

214 

183, 208 

SELECT Clause, 

Statement, ACCEPT 
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